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PREFACE 


DATAMAP  Version  2.00  (formerly  known  as  the  Operational  Loads 
Survey  Data  Management  System)  was  developed  under  Contract 
DAAJ02-77-C-0053  for  the  Applied  Technology  Laboratory,  U.  S. 
Army  Research  and  Technology  Laboratories  (AVRADCOM)  to  pro¬ 
cess  the  data  measured  by  the  AH-1G  Helicopter  Aerodynamic  and 
Structural  Loads  Survey  (OLS).  This  survey,  performed  for 
Applied  Technology  Laboratory  (ATL),  resulted  in  a  comprehen¬ 
sive  base  of  helicopter  test  data  including  measurements  such 
as  airfoil  surface  pressures,  leading-edge  stagnation  point, 
local  flow  magnitude  and  direction,  blade  accelerations, 
bending  moments,  and  the  attendant  responses  in  the  control 
system  and  airframe.  The  data  base  included  72,000  separate 
digitized  functions  of  time  from  367  transducers.  This  data 
base,  together  with  the  techniques  used  for  measurement  of  the 
data,  is  documented  in  Reference  1. 

DATAMAP  Version  2 . 00,  documented  in  Reference  2,  has  been 
successfully  used  to  process  the  OLS  data  base  for  a  number  of 
projects  both  at  ATL  (Fort  Eustis,  Virginia)  and  at  Bell 
Helicopter  Textron  ( BHT ) .  To  enhance  the  usefulness  of  this 
software,  Contract  DAAK51-79-C-0015  was  awarded  in  May  of  1979 
by  ATL.  This  contract  required  BHT  to  modify  DATAMAP  to 
incorporate  new  analysis,  operational,  and  graphic  capabili¬ 
ties,  and  also  to  provide  an  interface  between  the  Rotorcraft 
Flight  Simulation  Program  (C81)  and  DATAMAP.  Documentation 
prepared  under  this  contract  for  DATAMAP  consists  of  two 
volumes .  Volume  I  provides  user  instructions  and  information 
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on  the  analytical  methods  used  in  the  software.  Volume  II, 
the  Systems  Manual,  details  the  various  programming  con¬ 
siderations.  Information  on  the  C81  -  DATAMAP  interface  is 
also  contained  in  Reference  3,  which  was  produced  for  this 
contract. 

Technical  program  direction  was  provided  by  Mr.  D.  J.  Merkley 
of  ATL.  Principal  Bell  Helicopter  Textron  personnel  associ¬ 
ated  with  the  current  contract  were  Messrs.  R.  B.  Philbrick, 
A.  L.  Eubanks,  W.  R.  Dodds,  J.  R.  Van  Gaasbeek,  and  P.  Y. 
Hsieh. 
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1 .  INTRODUCTION 


This  volume  documents  the  source  code  for  the  Data  from  Aero¬ 
mechanics  Test  and  Analytics  -  Management  and  Analysis  Package 
(DATAMAP)  and  should  assist  the  programmer/analyst  in  modifi¬ 
cation,  maintenance,  and  installation  of  the  package.  However, 
the  reader  must  be  familiar  with  Volume  I  of  this  report 
before  reading  Volume  II,  since  many  structural  features, 
concepts,  and  terms  for  the  system  are  introduced  and  defined 
in  Volume  I.  Volume  I  describes  the  purpose,  capabilities  and 
analytical  techniques  of  the  system,  and  provides  instructions 
for  system  commands . 

The  DATAMAP  source  code  is  organized,  written,  and  commented 
so  as  to  minimize  the  difficulties  of  software  maintenance  and 
modification.  This  document  was  written  both  to  further 
clarify  the  flow  a’  structure  of  the  system  and  to  provide 
specific  assistance  for  certain  kinds  of  system  modifications. 
Section  2  of  this  volume  documents  the  File  Creation  Program 
and  also  explains  the  detailed  structure  of  the  Master  File. 

One  of  the  allowed  input  formats  for  the  File  Creation  Pro¬ 
gram,  the  Data  Transfer  File  (DTF )  format,  is  described  in 
Section  3.  Section  4  describes  the  Processing  Program,  includ¬ 
ing  interpretation  of  command  steps,  processing,  and  graphics. 
Various  utility  routines  that  are  used  throughout  the  programs 
are  described  in  Section  5.  Section  6  discusses  installation 
of  DATAMAP  on  non-IBM  computers,  while  Section  7  lists  the 
specific  file  and  linking  requirements  for  DATAMAP.  Appen¬ 
dixes  A  and  B  list  the  meanings  for  each  of  the  common  vari¬ 
ables  in  the  File  Creation  Program  and  the  Processing  Program. 
This  information  is  essential  to  understand  and  maintain  the 
code.  Appendix  C  gives  the  Job  Control  Language  and/or  Time¬ 
sharing  Option  commands  to  compile,  link-edit,  and  execute  the 
code . 

Two  specific  kinds  of  system  modifications  are  documented  with 
particular  detail.  Section  2.3  discusses  modification  of  the 
File  Creation  Program  to  accept  tape  formats  other  than  the 
BHT  Ground  Data  Center  (GDC)  standard  tape  format  or  the  DTF 
format.  Interface  requirements  for  replacement  of  a  process¬ 
ing  module  are  discussed  in  Paragraph  4.4.4.  When  a  new 
processing  module  is  to  be  interfaced  or  when  a  replacement 
module  requires  new  user  instruction  specifications,  a  modifi¬ 
cation  of  the  user  interface  tree  structure  is  required.  This 
structure  is  discussed  in  detail  in  Paragraph  4.3.2. 

Transportation  of  a  large  software  system  from  the  computer 
system  it  was  designed  for  (in  this  case  an  IBM  370/168  or  an 
IBM  360/65)  to  a  different  computer  system  can  be  a  difficult 
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and  time-consuming  process.  In  coding  DATAMAP,  an  attempt  has 
been  made  to  minimize  these  difficulties  and  assure  the  trans¬ 
portability  of  the  software.  The  code  is  written  entirely  in 
FORTRAN  and  use  of  IBM  extensions  to  American  National  Standard 
(ANS)  FORTRAN  have  been  limited.  However,  requirements  for 
various  system  capabilities  have  made  necessary  the  use  of 
certain  system,  hardware,  and  installation  dependent  code. 

All  such  code  is  identified  and  explained  in  Section  6.  In 
addition,  system,  hardware,  and  installation  dependent  code  is 
identified  in  the  program  source  statements  with  rows  of 
stars,  above  and  below  the  nonstandard  code. 
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2.  FILE  CREATION  PROGRAM 


2.1  MASTER  FILE  STRUCTURE 

The  Master  File  is  a  large  direct-access  file  containing  re¬ 
cords  that  are  individually  addressable  by  number  and  are  1024 
bytes  long.  A  numerically  contiguous  sequence  of  these  re¬ 
cords  forms  a  partition  and  is  referenced  by  an  offset  speci¬ 
fied  in  the  master  file  directory,  which  is  always  absolute 
record  1  (Figure  1). 

The  first  four  bytes  of  this  directory  are  four  characters 
that  when  set  to  '$$$$'  indicate  that  the  entire  file  is 
initialized  so  that  any  record  may  be  referenced  directly. 

The  next  entry  is  an  integer  giving  the  total  available  size 
of  the  Master  File  in  records.  The  third  entry  is  eight  bytes 
long  and  is  a  string  called  the  superword,  which  is  the  key 
for  the  Master  File  Utility  Program  to  list  or  delete  parti¬ 
tions  without  individual  passwords  or  to  restore  the  whole 
Master  File  from  tape.  Following  the  superword  in  the  direc¬ 
tory  record  is  a  sequence  of  63  possible  16-byte  partition 
specifications.  The  first  eight  bytes  of  a  partition  specifi¬ 
cation  form  a  string  containing  the  partition  name.  The  next 
four  bytes  form  an  integer  giving  the  offset  for  the  parti¬ 
tion.  The  final  four  bytes  give  the  length  of  the  partition 
in  records . 

The  location  of  the  initial  record  for  a  partition  is  specified 
by  adding  one  to  the  partition  offset  (Figure  2).  This  record 
contains  information  about  the  partition  as  a  whole.  The 
users  name  is  contained  as  a  string  in  bytes  1-16.  In  bytes 
17-32  is  the  password,  which  the  user  must  have  to  modify  or 
replace  the  partition.  The  third  entry  is  the  directory 
offset,  which  when  added  to  the  partition  offset  gives  the 
offset  for  relative  addressing  of  the  partition  directory. 
Entries  four  and  five  specify  the  partition  directory  size  and 
partition  data  area  size  respectively  in  records. 

The  next  sequential  record  contains  the  date  and  time,  in 
string  form  as  indicated  by  Figure  3,  that  the  partition  was 
last  accessed. 

The  first  directory  record  comes  after  the  data  records  in  the 
partition  and  always  contains  the  initial  record  of  the  coun¬ 
ter  directory  (frequently  the  only  record  in  the  counter 
directory).  Figure  4  illustrates  what  this  directory  might 
contain  if  there  were  more  than  127  counters  in  the  partition. 
Each  counter  entry  includes  a  counter  followed  by  the  relative 
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Figure  4.  Directory  relative  record  #1  (partition  offset  + 
directory  offset  +1) ,  counter  directory  initial 
record  (more  than  127  counters  assumed) . 


location  for  the  first  (possibly  only)  record  of  the  item  code 
directory  for  that  counter.  A  negative  counter  signals  the 
end  of  the  counter  directory  as  shown  in  Figure  5. 

The  structure  of  each  item  code  directory  is  identical  to  the 
counter  directory  as  shown  in  Figure  6.  In  the  example,  the 
directory  contains  only  three  item  codes  (and  thus  uses  only 
one  record),  but  an  item  code  directory  could  contain  multiple 
records  and  hundreds  of  item  codes  as  shown  for  the  counter 
directory.  Each  item  code  entry  includes  a  relative  location, 
which  points  to  an  information  record  in  the  partition  data 
area.  Thus,  only  the  partition  offset  is  added  to  this 
pointer  to  obtain  the  information  record  location. 

The  information  record  for  an  item  code/counter  data  stream 
contains  information  about  that  data  stream  and  marks  the  be¬ 
ginning  of  data.  There  are  two  allowed  formats  for  the  in¬ 
formation  record  and  these  formats  are  shown  in  Figures  7  and 
8.  For  Bell  Helicopter  Textron  -  Ground  Data  Center  (BHT-GDC) 
format  data  input,  the  information  record  format  in  Figure  7 
is  used.  For  DTF  input,  the  format  in  Figure  8  is  used  in¬ 
stead.  DATAMAP  determines  which  format  is  used  from  the  four- 
byte  integer  in  entry  six.  The  values  zero  and  one  indicate 
GDC  format  input  (Figure  7),  while  the  value  two  indicates  DTF 
input  (Figure  8).  For  either  format,  some  of  the  values  in 
the  information  record  are  required  for  processing  the  data 
stream  and  others  in  this  record  are  only  present  for  informa¬ 
tion  pruposes.  The  first  data  record  follows  the  information 
record  sequentially  and  all  data  records  for  that  item  code/ 
counter  pair  follow  sequentially  and  contiguously. 


The  first  four  information  record  entries  are  the  same  for 
either  format  and  are  available  for  future  use  if  a  program  is 
written  to  condense  partitions  that  contain  unused  areas 
where  time  histories  have  been  deleted.  These  entries  refer 
back  to  the  corresponding  item  code  directory  record  and 
position  within  the  record.  Entry  five,  the  data  stream 
length,  is  the  same  for  either  format.  This  entry  must  be 
divided  by  the  number  of  points  in  a  record  (adding  one  for  a 
non-zero  remainder)  to  arrive  at  the  number  of  records  in  the 
data  stream. 

The  number  of  data  values  in  a  record  is  obtained  from  the 
number  of  bytes  in  a  record,  currently  1024,  and  the  data  word 
length,  which  depends  on  whether  the  data  are  calibrated  or 
uncalibrated  as  stored  (entry  6).  A  calibrated  value  is 
stored  as  a  four-byte  floating  number,  while  an  uncalibrated 
value  is  stored  as  a  two-byte  integer,  giving  512  uncalibrated 
data  values  per  record  or  256  calibrated  data  values  per 
record.  Uncalibrated  data  can  be  calibrated  using  entries  27 
and  28. 
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Figure  5.  Directory  relative  record  #L  (partition  offset  + 
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For  the  format  in  Figure  7,  the  sample  rate  (data  points/se¬ 
cond)  of  the  data  stored  is  obtained  by  dividing  entry  23,  the 
initial  sample  rate  on  digital  tape,  by  entry  22,  the  sample 
rate  reduction  factor.  The  data  type,  entry  25,  indicates 
whether  the  data  are  time  history  or  min/max  data,  although 
use  of  this  package  for  min/  max  input  data  is  not  currently 
planned.  For  the  format  in  Figure  8,  the  sample  rate  is  entry 
14,  which  is  stored  as  a  four-byte  floating  word.  The  time 
history  -  min/max  indicator  is  entry  21. 

For  the  format  in  Figure  7,  entries  9  and  10  indicate  the  time 
offsets  in  seconds  applied  to  the  data  stream  during  transfer 
from  digital  tape  to  the  Master  File.  Entry  9  is  for  informa¬ 
tion  purposes  and  indicates  the  amount  of  data  discarded  in  an 
effort  to  line  up  the  starting  data  point  in  time  with  all 
other  starting  data  points  from  the  same  counter.  Entry  10 
shows  the  amount  of  additional  data  discarded  before  a  subse¬ 
quent  data  point  was  saved  on  disc.  A  negative  value  for 
entry  10  indicates  no  time  alignment  was  done  even  though  data 
from  other  item  codes  for  the  same  counter  may  be  aligned. 

The  additional  offset  is  then  the  absolute  value  of  entry  10. 
The  corresponding  entry  numbers  for  the  format  in  Figure  8  are 
8  and  9 . 

The  other  entries  are  present  largely  for  information  and 
display  purposes  and  are  all  explained  in  Reference  4,  except 
for  the  digital  filter  cutoff,  which  is  entry  21  for  the 
format  in  Figure  7  and  entry  10  for  the  format  in  Figure  8. 
This  entry  gives  the  cutoff  of  the  low-pass  digital  convolu¬ 
tion  filter  (in  Hz)  applied  to  the  data  during  transfer  from 
tape  to  disc.  A  value  less  than  or  equal  to  zero  indicates 
that  no  filter  was  applied. 

Now  that  the  Master  File  and  partition  record  structure  have 
been  examined  in  detail,  the  overall  structure  of  the  Master 
File  can  be  considered  by  looking  at  Figure  9.  The  first 
record  of  the  Master  File  is  the  Master  File  directory  record 
which,  for  an  existing  partition,  supplies  an  offset  pointing 
to  the  initial  record  of  that  partition.  This  initial  record 
contains  a  second  offset  pointing  to  the  partition  directory. 
The  first  record  in  the  partition  directory  is  the  initial 
record  of  the  counter  directory  which,  for  a  given  counter, 
points  to  the  initial  item  code  directory  record  for  that 
counter.  The  item  code  directory  points,  for  a  given  item 
code,  to  the  information  record  in  the  data  area  for  that  item 
code/  counter  pair.  The  data  stream  follows  the  information 
record  contiguously. 


4L.  J.  Tieman,  'GROUND  DATA  CENTER  STANDARD  DIGITAL  TAPE  FOR¬ 
MAT,  '  Bell  Helicopter  Textron  Report  699-099-020,  Fort  Worth, 
Texas,  21  April  1976. 
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Figure  9.  Master  File  structure. 
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Some  advantages  of  the  Master  File  structure  are  now  evident. 
First,  a  partition  as  a  whole  is  easily  portable  since  every 
record  in  the  partition  is  located  with  relative  addressing. 
Second,  a  partition  directory  is  easily  portable  separate  from 
the  partition  since  records  within  the  directory  are  located 
using  a  second  order  of  relative  addressing.  Third,  there  is 
no  theoretical  limit  to  the  number  of  item  codes  or  counters 
stored  or  to  the  amount  of  data  from  an  item  code/counter  data 
stream  that  can  be  saved.  Practically,  physical  disc  space 
limitations  will  limit  these  quantities. 

2.2  FILE  CREATION  PROGRAM  FLOW 

The  flow  sequence  of  the  File  Creation  Program  is  described 
here  with  close  reference  to  the  flowchart  on  Figures  10  and 
11  using  the  numeric  label  just  outside  each  block. 

Block  1  MAIN  calls  INLIST  to  read  input  commands  according  to 
the  free  field  format  described  in  Volume  I .  READF  is  used  to 
interpret  numeric  input  and  group  strings.  MATCHR  is  called 
to  recognize  keywords.  PACK  is  used  to  transfer  four  charac¬ 
ters  to  one  four-byte  word. 

Block  2  MAIN  lists  the  number  of  errors  detected  by  INLIST 
and  then  calls  LISTCM  to  sort  and  list  the  data  requests.  Any 
duplicate  item  codes  or  counters  are  noted  and  the  duplicates 
rejected. 

Block  3  MAIN  checks  the  number  of  errors  detected  by  INLIST 
and  goes  to  an  error  termination  point  if  one  or  more  occurred 
or  if  no  input  was  requested;  otherwise,  the  program  goes  to 
Block  5. 

Block  4  is  an  error  termination  in  MAIN.  The  Master  File  has 
not  been  disturbed  at  this  point. 

Block  5  If  there  are  no  input  errors,  MAIN  calls  SETUP1  to 
read  the  first  record  of  the  Master  File  and  check  that  the 
Master  File  is  initialized.  If  the  Master  File  is  not  initia¬ 
lized  properly  ('$$$$'),  then  the  routine  returns  an  error  and 
MAIN  goes  to  Block  4.  With  proper  initialization,  SETUP1 
double  checks  the  initialization  by  attempting  to  read  the 
numerically  highest  record  in  the  file.  Failure  on  this  read 
attempt  abnormally  terminates  the  job. 

Block  6  Assuming  that  the  previously  mentioned  read  attempt 
succeeds ,  SETUP1  initializes  the  direct  access  scratch  disc 
file  using  the  sequential  alias  for  that  file. 

Block  7  SETUP1  also  provides  WMS,  RMS  and  FMS  (routines  which 
do  intermediate  checking  and  apply  the  relative  offsets 
before  performing  direct  access  WRITE,  READ  and  FIND  calls 
respectively)  with  preliminary  offset  and  check  values  for  the 
Master  File  and  the  scratch  random  access  file.  Control  is 
then  returned  to  MAIN. 
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Block  8  -  MAIN  then  calls  MAKRUM  which  sorts  the  partition 
names  by  ascending  location  in  the  file  and  attempts  to  match 
the  name  of  the  specified  ADD/NEW/REPLACE  partition. 

Block  9  -  (Still  in  MAKRUM)  If  a  match  for  the  requested 
partition  name  is  found,  the  program  goes  to  block  10;  if  not, 
the  program  goes  to  block  13 . 

Block  10  -  (MAKRUM)  A  check  is  made  on  whether  the  requested 
partition  name  was  supposed  to  be  ’NEW'.  If  so,  an  error  has 
occurred  since  a  partition  by  that  name  already  exists  and  the 
program  goes  to  block  4.  If  not,  the  program  goes  to  block 
11. 

Block  11  -  (MAKRUM)  A  check  is  made  on  whether  the  requested 
partition  name  was  supposed  to  be  replaced.  If  so,  the 
program  goes  to  block  12;  if  not,  it  goes  to  block  14. 

Block  12  -  (MAKRUM)  The  partition  matched  is  removed  from  the 
Master  File  directory  and  then  the  mode  is  changed  from  'RE¬ 
PLACE'  to  'NEW'.  Thus,  the  partition  name  will  be  retained 
but  different  data  will  be  added  to  the  partition.  Then  the 
program  goes  to  block  14. 

Block  13  -  (MAKRUM)  No  match  for  the  requested  data  set  name 
has  been  found  so  the  program  checks  whether  an  'ADD'  or  'RE¬ 
PLACE'  has  been  specified.  If  so,  an  error  has  occurred  so 
the  program  goes  to  block  4.  If  not,  the  program  goes  to 
block  14. 

Block  14  -  All  gaps  between  the  last  record  of  a  partition  and 
the  first  record  of  the  next  sequential  partition  are  elimi¬ 
nated.  Any  gap  between  the  first  sequential  partition  and  the 
Master  File  directory  record  is  eliminated.  The  record  space 
following  the  partition  to  be  modified  is  maximized.  This 
process  of  moving  partitions  up  and  down  in  the  Master  File 
uses  a  scratch  disc  file  so  that  a  number  of  records  are  read 
from  the  Master  File  to  scratch  and  then  from  scratch  to  a  new 
location  in  the  Master  File.  When  this  process  is  complete, 
the  total  number  of  Master  File  records  available  for  the 
partition  to  be  modified  is  computed.  Then,  the  program  goes 
to  block  15.  As  mentioned  in  Volume  I,  Section  3.2.1,  the 
entire  Master  File  could  be  destroyed  if  too  short  a  time 
limit  were  specified  for  a  run  of  the  File  Creation  Program. 

In  particular,  destruction  of  the  Master  File  would  occur  if 
block  14  of  the  File  Creation  Program  were  executing  when  the 
time  limit  was  encountered. 

Block  15  -  (MAKRUM)  A  comparison  is  made  of  the  number  of 
Master  File  records  available  and  the  total  number  of  records 
requested  for  the  partition.  If  fewer  Master  File  records  are 
available  than  requested,  the  program  goes  to  block  16;  other¬ 
wise,  the  program  goes  to  block  17. 

Block  16  -  (MAKRUM)  The  space  request  is  truncated  to  the 
amount  of  space  available  in  the  Master  File.  Then,  the  pro¬ 
gram  goes  to  block  17. 
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Block  17  -  (MAKRUM)  The  space  request  (original  or  truncated) 
is  checked  to  assure  that  it  provides  a  basic  amount  of  space 
for  a  partition  or  a  partition  increment.  If  the  space  is  in¬ 
adequate,  the  program  goes  to  block  18;  otherwise,  the  program 
goes  to  block  19. 

Block  18  -  Is  an  error  return  from  MAKRUM  to  MAIN  and  a  termi¬ 
nation  message  indicating  the  problem  is  generated.  At  this 
point,  the  directory  has  been  reset,  excluding  the  partition  of 
interest. 

Block  19  -  MAKRUM  returns  to  MAIN,  which  calls  SETUP2  to  pre- 
pare  for  the  partition  creation/addition  process.  If  in  'ADD' 
mode,  the  existing  directory  is  transferred  to  the  scratch 
random  access  file  where  it  will  be  added  to  and  modified  in 
the  data  addition  process.  If  in  'NEW'  mode,  the  directory  is 
initialized  in  the  scratch  random  access  file.  Control  re¬ 
turns  to  MAIN  and  the  program  goes  to  block  20. 

Block  20  -  MAIN  checks  whether  ALIGN  has  been  specified  and  if 
so,  the  program  goes  to  block  21;  otherwise,  the  program  goes 
to  block  27. 

Block  21  -  MAIN  calls  a  routine  to  provide  alignment  correc- 
tion  offsets  for  each  item  code  desired  for  all  counters. 

These  offsets  will  correct  for  time  skew  misalignment  in  the 
data.  The  routine  takes  the  lists  of  item-codes  and  counters 
and  provides  a  number  of  data  points  to  be  discarded  (at  the 
original  data  rate)  at  the  beginning  of  each  item  code/counter 
pair  data  stream.  An  invalid  offset  is  indicated  with  a  -1. 
Offsets  are  stored  on  disc  by  routine  EXCORE.  From  here  the 
program  proceeds  to  block  22. 

Block  22  -  MAIN  tests  the  data  input  format  that  was  specified 
by  the  instruction  input.  For  a  nonstandard  input  format, 
control  passes  to  block  23.  For  the  standard  BHT-GDC  format 
(e.g.,  OLS  data),  control  is  passed  to  block  24.  For  DTF  for¬ 
mat  input,  block  25  receives  control. 

Block  23  -  MAIN  calls  subroutine  STRNGF  to  process  the  non¬ 
standard  format  data.  A  different  version  of  this  subroutine 
must  be  provided  for  each  specific  nonstandard  format.  Con¬ 
sult  Section  2.3  for  specifications  for  this  subroutine.  When 
processing  is  complete,  control  passes  to  block  26. 

Block  24  -  MAIN  calls  subroutine  GDCFRM  to  process  standard 
BHT-GDC  format  input  tapes.  A  separate  block  diagram  and  de¬ 
scription  is  provided  for  this  subroutine.  When  processing 
is  complete,  control  passes  to  block  26. 

Block  25  -  MAIN  calls  subroutine  DTFFRM  to  process  DTF  format 
input.  A  separate  block  diagram  and  description  is  provided 
for  this  subroutine.  When  processing  is  complete,  control 
passes  to  block  26. 


Block  26  -  MAIN  calls  RESTRD  to  copy  the  partition  directory 
from  the  scratch  random  access  file  to  the  top  of  the  parti¬ 
tion.  RESTRD  returns  to  MAIN  which  then  annotates  the  Master 
File  directory  record  to  reflect  the  size  and  location  of  the 
partition.  Then,  the  program  goes  on  to  block  36. 

Block  27  -  MAIN  checks  to  see  whether  a  listing  of  the  modi- 
fied  partition  was  requested.  If  so,  the  program  goes  to 
block  37;  if  not,  the  program  goes  on  to  block  38. 

Block  28  -  MAIN  calls  MAP  to  list  the  item  code/counter  pair 
data  streams  present  in  the  partition  along  with  some  informa¬ 
tion  on  each  data  stream.  Then  control  returns  to  MAIN  and 
the  program  goes  on  to  block  38. 

Block  29  -  MAIN  checks  whether  a  digital  tape  save  of  the  re¬ 
vised  Master  File  is  wanted.  If  not,  the  program  goes  on  to  a 
normal  exit  at  block  40.  If  so,  the  program  goes  to  block  39. 
Block  30  -  MAIN  calls  SAVALL  to  save  the  partition  on  digital 
tape.  SAVALL  then  returns  to  MAIN  and  the  program  goes  to 
block  40. 

Block  31  -  Done. 

At  block  22  of  the  above  flow  sequence,  the  flow  branches 
to  three  different  routines  based  upon  the  type  of  input. 

For  input  that  follows  neither  the  BHT-GDC  or  the  DTF  format, 
a  special  routine  must  be  written  as  described  in  Section  2.3. 
Following  is  a  description  of  the  GDC  format  input  routine 
with  reference  to  Figure  12.  The  DTF  input  routine  will  be 
described  subsequently. 

Block  1  In  subroutine  GDCFRM,  an  assignment  record  is  read 
from  the  input  data  tape. 

Loop  2  A  loop  is  entered  to  process  the  data  that  follow  each 
assignment  record.  The  loop  assumes  that  a  new  assignment 
record  has  been  read  at  the  start  of  the  loop.  This  loop 
will  be  called  loop  2. 

Block  3  Subroutine  FITEM  is  called  to  determine  whether  the 
assignment  record  specifies  any  item  codes  that  are  required 
for  transfer.  If  none  are  found,  then  control  is  transferred 
to  block  14.  If  one  or  more  required  item  codes  are  found, 
loop  4  is  entered. 

Loop  4  A  loop  is  entered  to  process  the  several  counters  that 
follow  on  the  data  tape.  For  each  counter,  the  data  for  all 
item  codes  specified  in  the  assignment  record  will  appear  in 
parallel . 

Block  5  A  record  is  read  from  the  input  data  tape. 

Block  6  The  type  of  record  found  is  tested.  If  an  assign¬ 
ment  record  is  found,  control  branches  immediately  to  the  bot¬ 
tom  of  loop  2.  For  a  data  record,  control  branches  to  block 
7.  If  a  calibration  record  or  end  of  data  were  found,  a  tape 
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format  error  would  have  occurred.  Branches  to  error  message 
codes  are  included  at  this  point  in  the  program  for  these  oc- 
curances  but  the  paths  are  not  shown  to  simplify  the  diagram. 
Block  7  Subroutine  FCNTR  is  called  to  test  whether  the  counter 
for  the  data  record  that  was  found  is  required  for  transfer. 

If  not,  control  branches  to  block  8.  If  the  counter  is  re¬ 
quired,  the  flow  continues  to  block  10. 

Block  8  The  data  tape  is  read  until  a  calibration  record  is 
found. 

Block  9  Calibration  factors  are  updated  if  possible  by  sub¬ 
routine  CALUPD. 

Block  10  Data  from  the  tape  corresponding  to  the  counter 
and  to  all  item  codes  listed  in  the  assignment  record  are 
transferred  to  a  sequential  scratch  file  by  subroutine  TRANS C. 
Calibration  factors  are  updated  if  possible  by  subroutine 
CALUPD . 

Loop  11  A  loop  is  entered  to  process  each  item  code  listed 
in  the  assignment  record  that  is  required  for  transfer. 

Block  12  Data  for  the  current  item  code/counter  pair  are 
transferred  from  the  sequential  scratch  file  to  the  Master 
File.  Subroutine  SAVD  is  used  if  no  digital  filtering  is 
required.  Calibration  and/or  sample  rate  reduction  are  ac¬ 
complished  by  either  of  these  subroutines  as  required. 

Block  13  A  test  is  performed  to  determine  whether  all  required 
data  have  been  found.  If  so,  control  is  transferred  to  block 
15.  If  not,  loop  4  is  reexecuted. 

Block  14  The  input  data  tape  is  read  until  an  assignment  re¬ 
cord  is  read  or  the  end  of  the  input  data  is  encountered.  For 
the  end  of  data,  control  is  transferred  to  block  15.  If  an 
assignment  record  is  found,  loop  2  is  reexecuted. 

Block  15  Subroutine  GDCFRM  is  complete. 

Following  is  a  description  of  the  DTF  format  input  routine 
with  reference  to  Figure  13.  Reference  to  Section  3  may  be 
required  to  follow  the  DTF  record  types. 

Loop  1  Subroutine  DTFFRM  begins  by  entering  a  loop  over  in¬ 
dividual  DTF  records  or,  for  certain  cases,  sequences  of  DTF 
records  of  the  same  type. 

Block  2  Inside  Loop  1,  the  routine  tests  whether  an  unproces¬ 
sed  DTF  record  is  available  in  program  memory.  If  so,  control 
is  passed  to  block  5.  If  not,  the  flow  branches  to  block  3. 
Block  3  Subroutine  INPDTF  is  called  to  attempt  to  read  a  DTF 
record. 

Block  4  Subroutine  DTFFRM  tests  the  result  of  the  read  attempt 
in  block  3.  If  an  error  was  detected,  control  is  passed  to 
block  10.  If  an  end-of-file  was  encountered,  control  is  passed 
to  block  11.  Otherwise,  the  normal  flow  proceeds  to  block  5. 
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1  LOOP  OVER  INDIVIDUAL  DTP  RECORDS  OR  CONTIGUOUS 

DTP  RECORD  SEQUENCES  OF  THE  SAMP  TYPE 
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Figure  13.  DTF  data  format  input  subroutine  block  diagram. 
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Block  5  The  record  type  field  is  tested  and  based  upon  the 
value  of  the  integer  in  this  field,  control  is  passed  to  one 
of  several  blocks.  If  the  integer  is  out-of-range  (i.e.,  less 
than  1  or  greater  than  16)  control  is  passed  to  block  10. 

Values  of  six  through  sixteen  require  no  action  and  control  is 
passed  to  the  bottom  of  loop  1.  A  value  of  one  requires  no 
action  except  to  test  that  no  other  type  of  record  has  been 
read  previously.  Control  is  then  passed  to  the  bottom  of  loop 
1.  For  values  of  2,  3,  4,  or  5,  control  is  passed  to  blocks 
6,  7,  8,  or  9  respectively. 

Block  6  A  counter  record  is  processed  for  counter  and  certain 
other  information  that  applies  to  all  channels  (item  codes) 
in  the  data  that  follow.  A  time  base  specification  may  be 
processed. 

Block  7  One  or  more  item  code  records  are  processed  for  item 
codes,  item  code  sequence  in  the  subsequent  data,  and  possi¬ 
bly  for  Info  File  information.  A  time  base  specification  may 
be  processed. 

Block  8  One  or  more  data  records  are  processed.  The  data  are 
transferred  to  a  scratch  disc  file  and  then  for  each  channel 
the  necessary  filtering  and/or  interpolation  processing  is 
performed  and  the  data  are  stored  in  the  Master  File. 

Block  9  An  Info  File  record  is  processed.  Each  record  contains 
the  basic  structure  and  labels  for  one  or  more  Info  File  groups. 

2.3  NON-BHT  DATA  FORMATS 

The  File  Creation  Program  can  be  modified  to  accommodate  data 
tape  formats  other  than  the  standard  BHT-GDC  format  through 
generation  of  an  appropriate  replacement  for  the  program  stub, 
STRNGF .  The  rest  of  the  File  Creation  Program  will  continue 
to  provide  the  following  functions:  read  user  instructions, 
manage  Master  File  space,  manage  partition  directory,  write 
data  to  Master  File.  The  subroutine  STRNGF  must  handle  all 
the  details  of  reading  the  data  from  digital  tape,  consult 
with  the  common  block  /LIST/  containing  the  user  instructions 
(see  Appendix  A),  provide  appropriate  information  for  each 
item  code/counter  pair,  and  provide  the  data  for  transfer  to 
the  Master  File  in  record  size  blocks. 

Generally,  it  is  more  desirable  to  write  a  program  to  convert 
a  data  base  to  DTF  format  than  to  write  a  STRNGF  subroutine 
and  incorporate  this  routine  in  the  FCP.  This  is  true  for 
two  reasons.  First,  the  DTF  format  is  specifically  organized 
to  accommodate  certain  data  base  structures  such  as  parallel 
data  and  variable  sample  rates.  A  STRNGF  subroutine  would  have 
to  include  code  to  convert  these  structures,  if  necessary.  Se¬ 
cond,  the  STRNGF  subroutine  must  reference  COMMON  values  from 
the  FCP.  Thus,  the  STRNGF  routine  may  require  rewriting  for 
each  revision  of  the  FCP. 
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Table  1  lists  a  prototype  version  of  STRNGF  showing  the  se¬ 
quence  that  must  be  followed  to  store  data.  The  routine 
ADDAT  is  appended  to  actually  write  data  to  the  Master  File. 
However,  code  must  be  provided  to  satisfy  the  required  func¬ 
tion  of  STRNGF  as  listed  in  the  program  comments.  Data  must 
be  selected  from  digital  tape  using  the  user  instructions  in 
/LIST/.  Appropriate  data  must  be  extracted  from  the  tape  or 
provided  in  some  other  manner  for  the  information  record  for 
each  item  code/counter  pair.  In  some  instances,  STRNGF  may 
need  to  translate  the  identifiers  on  the  input  digital  tape  to 
four-character  item  codes  and  integer  counters  with  values 
between  1  and  999999. 

STRNGF  will  most  likely  provide  calibrated,  REAL  data  for 
transfer  to  the  Master  File.  However,  the  option  is  available 
when  the  program  is  executed  on  a  system  with  INTEGER*2  capa¬ 
bility  to  store  the  data  in  integer  format.  In  this  case, 
STRNGF  must  call  ADDAT  with  twice  as  many  records  containing 
INTEGER* 2  values  as  would  be  provided  if  the  values  were  REAL. 
In  addition,  the  appropriate  calibration  factors  must  be  pro¬ 
vided,  and  the  information  record  value  INREC(6)  must  be  set 
to  zero  to  indicate  that  integer  values  are  present. 

When  the  sample  rate  is  to  be  reduced,  STRNGF  must  perform 
this  function  before  supplying  the  data  to  ADDAT.  The  sample 
rate  reduction  factor  must  be  inserted  in  the  array  location 
INREC  (28).  Notice  that  the  array  location  INREC(29)  must 
contain  the  original  sample  rate  on  tape  before  the  sample 
rate  reduction  factor  is  applied. 

The  subroutines  LOCFIX,  ADDAT  and  INIDAT  are  called  by  STRNGF. 
The  routines  will  appropriately  manage  storage  of  the  data  on 
the  Master  File  and  annotation  of  the  directory.  The  routines 
also  monitor  error  conditions  so  that  the  error  returns  must 
be  appropriately  handled  by  STRNGF  as  shown  in  the  prototype. 
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TABLE  1.  PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF 


SUBROUTINE  STRNGF 

PROTOTYPE  *STRNGF •  ROUTINE  FOR  READING  OAT  A 'FROM 
NON-OHT-GDC  STANDARD  TAPE  FORMATS  FOR  THE  DATAMAP 
FILE  CREATION  PROGRAM. 

DIMENSION  INREC ( 256  > 

COMMON/LOCOM/ I TEMN  » I CNTRN • I DROFF . 
ft  I DAS 1 2 • 1DRS 1 Z • ITEMRC  * ITEMSO 
LOGICAL  LCAL 

COMMON/ INFO/ 1 RS I Z . MLOC .LOCO • (POLES .HI GH. LCAL • I RA T  » 
ft  1 SK IP  *  NPS .NPP .NOFF • I SEQ .LSTR T  •  I ADD. INSIZ.INSIZD. 
ft  IRDATS. 1RSAVS. ICNTR . XAL I GN .MSE TN 
COMMON/KARD/I TEMTP( 51 0 ) . I TEMW (510) *CALSH( 26 ) . 
ft  CALCM(26).CXM< 26) *CXB<  26 > .NM ATCH. DCAL I  26 ) 

LOGICAL  LAL IN. MAP  IT. SA V I T .STRANG. LOT F . LDTF IN . 

1  LTHERE .LEXTRN.LALL I T .LALLCN.LSC AN 
COMMON/LIST/  Nl TEMS.NCNTRS . ISPAC. 1  TAPES. 1AONU.LAL1N. 

1  NAME  12) .NPWD I  4 ) .NUSER (41 .MAP  I T • SA VI T • STRANG 

2  .LDTF .NLOOK .LDTF IN .LTHERE .LEXTRN.LALL I T .LALLCN.LSC AN 

3  «NCTR( 100) .NOFFSTt lOOl.NPWANTt 100). 

A  1 TEMI51 0) .F1LT(5I0  > • 1CAL( 510 ) . 1 SKPf 5 1 0  I .RATE ( 51 0 > 
COMMON /F 1 LE  S/NRPS .NRSC • NSSC *N I T T .NO I R .NRE A .NWR I • 

1  NSAV. I ALI .NIFO 


(END  =  0 
LW  =  1RSI2/2 

SET  UP  INPUT  FROM  NON-STANDARD  TAPE. 

INSERT  CODE  AS  APPROPRIATE. 

LOOP  OVER  SUBSETS  OF  THE  DATA  ON  TAPE. 

DO  500  1=1.  10000 

DETECT  THE  PRESENCE  OF  A  SUBSET  OF  THE  REQUESTED  DATA 
CORRESPONDING  TO  ONE  COUNTER  AND  ONE  OR  MORE  ITEM  CODES. 

ASSIGN  A  NUMBER  BETWEEN  ONE  ANO  THE  DIMENSION  OF  THE  ARRAY 
•  1 TEMW •  TO  EACH  ITEM  CODE  IN  THE  SUBSET  (ADJUST  THE  DIMENSIONS 
OF  THE  ARRAYS  IN  THE  COMMON  BLOCK  /KARD/  AS  NECESSARY).  SET 
• 1 TEMW ( N  )  •  FOR  EACH  ITEM  CODE  NUMBER.  *N*.  TO  THE  CORRESPONDING 
ARRAY  POSITION  OF  THE  ITEM  CODE  IN  THE  ARRAY  *1TEM*.  IF  DATA 
ARE  TO  BE  STORED  IN  INTEGER  FORM.  SET  THE  CORRESPONDING  *CXM» 
AND  *  CXB  *  ARRAY  VALUES  FOR  CALIBRATION  ON  RETRIEVAL  FROM  THE 
MASTER  FILE.  SET  •NMATCH*  TO  THE  NUMBER  OF  ITEM  CODES  IN  THE 
SUBSET.  INSERT  CODE  AS  NECESSARY  TO  PERFORM  THESE  FUNCTIONS. 

LOOP  OVER  ITEMS  IN  THE  SUBSET 

DO  400  J  =  1.  NMATCH 

SET  THE  VARIABLES  *  I  CNTRN  *  AND  • I TEMN*  TO  THE  COUNTER  AND 
I TfcM  CODE  RESPECTIVELY.  SET  THE  ARRAY  • INREC*  W 1 TH  SOME  OF 
REQUIRED  VALUES  FOR  THE  CORRESPONDING  INFORMATION  RECORD. 

• • INREC ( I )  =  ITEM  CODE  =  ITEMN 

• . I NREC 1 6 )  -  1  IF  CALIBRATED  DATA  ARE  TO  BE  STORED. 

=  0  IF  INTEGER  DATA  ARE  TO  BE  STORED 
•• INREC( 12-20)  =  ITEM  CODE  DESCRIPTION/UNITS  WITH  UNITS  IN 
THE  LAST  SIX  BYTES 

• • INREC ( 27 )  =  DIGITAL  FILTER  CUTOFF.  -1.0  IF  NO  FILTER 
APPLIED 

• • INREC ( 28)  =  SAMPLE  RATE  REDUCTION  FACTOR* 

=  I SKP (ITEMW(J)) 

••INREC! 29)  =  SAMPLE  RATE  OF  DATA  ON  TAPE  BEFORE  THE  SAMPLE 
RATE  REDUCTION  FACTOR  IS  APPLIED 
• • INREC ( 42 )  =  2  (TIME  HISTORY  DATA.  NOT  M1N/MAX) 
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TABLE  1 


PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF  (Continued) 


CALL  WMS< 2. INREC.LW. J. IERR ) 

IF  4  16 RR  .NE.  0>G0  TO  580 

SET  MCNTR  TO  THE  ARRAY  POSITION  IN  *NC TR •  ARRAY  FOR  THE 
CURRENT  COUNTER.  I  .E  .  •  SET  MCNTR  SO  THAT 
......  I CNTRN  =  NCTR  ( MCNTR  )•••»». 

INSERT  CODE  AS  NECESSARY 

CALL  L OCF I X ( NERR  *  INFO. I ERR ) 

1F4NERR  .NE.  OJGO  TO  550 

LOOP  OVER  RECORDS  OF  OUTPUT  FOR  AN  ITEM  CODE 

ISK1P  =  l 

MLOC  =  IDAS  I Z  ♦  2 
DO  300  K  *  1.  10000 

READ  THE  DATA  FOR  THE  NEXT  RECORD.  IF  OUT  OF  DATA. 
BRANCH  TO  350.  GET  DATA  1256  CALIBRATED  OR  512  INTEGER 
VALUES)  INTO  THE  ARRAY  *1NREC*.  SET  NUM  TO  NUMBER  OF 
PUINTS  IN  THE  RECORO. 

CALL  ADDA T I INREC . NUM . I CHK ) 

IFI1CHK  .EQ.  0)00  TO  300 
IEND  *  1 
GO  TO  350 

300  CONTINUE 

ADD  THE  INFORMATION  RECORD  FOR  THE  TIME  HISTORY 
THAT  WAS  JUST  WRITTEN  ON  THE  PARTITION. 

350  CALL  INIDAT ( J. MCNTR .NERR • INFO. 1ERR > 

I F | NERR  .NE.  O ) GO  TO  560 
I  DAS 1 Z  =  MLOC  -  I 
I F | IEND  .NE.  O ) GO  TO  570 
A  0  O  CONTINUE 

500  CONTINUt 

GO  TO  1000 

DIRECT  ACCESS  WRITE  ERROR  STORING  THE  INFORMATION  FILE 
ON  SCRATCH  DIRECT  ACCESS  DISC. 

550  WRITE INWRI .9000) IERR 
GO  TO  1000 

ERROR  ADO  I NG  INFORMATION  RECORD  TO  THE  PARTITION. 

560  WRITE  CNWRI  .9001  ) NE RR . I NFO • 1  ERR 
GO  TO  1000 

OUT  OF  SPACE  ON  THE  PARTITION 

570  WRITE INWRI .9002) IERR 
GO  TO  1000 
C 

C  ERROR  ANNOTATING  DIRECTORY  FOR  START  OF  DATA  STREAM 
C 

580  WRITE INWRI .9003INERR. INFO. IERR 
C 
C 

1000  RETURN 
C 

9000  FORMAT  I 3X.39HA*#ERR0R  STORING  INFO  RECORD  ON  SCRATCH. 1 10//) 

9001  FORMAT! 3X.42HAWWERR0R  STORING  INFO  RECORD  ON  PARTITION  • 

I  3110//) 

9002  FORMAT  4 3X.36HAAARAN  OUT  OF  SPACE  ON  THE  PARITION  //) 

9003  FORMAT! 3X.26HAWAERROR  SETTING  DIRECTORY  // ) 

ENO 
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TABLE  1 


PROTOTYPE  EXAMPLE  FOR  SUBROUTINE  STRNGF  (Concluded) 


SUBROU1 INE  ADDAT ( 1DAT .NUM . I CHK > 

ROUTINE  FOR  USE  BY  ROUTINE  *STRNGF •  TO  WRITE  DATA  TO  THE 

master  file. 

IDAT  =  DATA  ARRAY 

NUM  =  NUMBER  OF  VALUES  IN  DATA  ARRAY 

I  SHOULD  EQUAL  •LIM*  UNLESS  LAST  RECORD) 

ICHK  =  PROBLEM  RETURN 
0  a.  NO  PROBLEM 

1  =  DIRECT  ACCESS  WRITE  ERROR 

2  =  OUT  OF  SPACE  FOR  MORE  WRITES 

DIMENSION  IDAT(I) 

LOGICAL  LCAL 

COMMON/ INFO/ IRS IZ .MLOC .LOCO.IPOLES .H I GH .LC AL • I RA T • 

%  ISK 1P.NPS.NPP .NOFF * ISEQ.LSTRT. I ADD* INS  I Z • I NS I  ZD • 

%  IRDATS. IRS AVS. 1CNTR.X ALIGN. MSETN 
COMMON/LOCOM/I TEMN. ICNTRN. IDROFF. 
s  IDAS  1 Z . I DRS I Z • I TE  MRC . I TE MSQ 


ICHK  a  O 

I F I NUM  .LE.  0)GO  TO  1000 

LW  =  1RS12/2 

LIM  =  IRSIZ 

IFtLCAL)  LIM  =•  L 1 M/2 

CALL  WMSI 1 . IDAT .LW.MLOC • IERR> 

I F I  1  ERR  .GT.  0)G0  TO  500 

NPS  =  <ML0C-IDAS1Z“P)ALIMAISK|P  ♦  NUMtlSKlP 
MLOC  =  MLOC  ♦  I 

IFIMLQC  .GT.  MLEN (  1 | — 4  I GO  TO  510 
GO  TO  1000 

DIRECT  ACCESS  WRITE  ERROR 

00  ICHK  =r  ) 

GO  TO  1000 

OUT  OF  DATA  SPACE  IN  THE  PARTITION 
10  ICHK  =  2 


1000  RETURN 
END 


3.  STRUCTURE  AND  FORMAT  OF  THE  DATA  TRANSFER  FILE 


This  section  describes  the  required  structure  and  content  of  a 
DTF .  That  is,  various  rules  are  presented  for  the  structure 
and  ordering  of  DTF  records,  and  the  proper  content  of  these 
records  is  specified.  The  program  that  creates  a  DTF  has  the 
responsibility  to  ensure  that  the  structure  and  content  of  the 
DTF  is  correct.  The  File  Creation  Program  (FCP)  tests  the 
structure  of  the  DTF  for  correctness  and  also  tests  certain 
parts  of  the  data  content  of  the  DTF  for  consistency.  However, 
the  FCP  cannot  test  the  overall  content  of  the  DTF  for  accur¬ 
acy.  When  an  error  is  detected  in  the  DTF,  the  FCP  stops  pro¬ 
cessing  additional  DTF  data,  stores  any  data  that  were  cor¬ 
rectly  processed  before  the  error  was  detected,  and  terminates 
the  program  run. 

3.1  DATA  TRANSFER  FILE  FEATURES 


3.1.1  Format  Types 

There  are  two  alternative  DTF  formats,  internal  and  external. 
The  format  selected  must  be  consistent  throughout  any  one  DTF. 
Internal  format  is  used  to  transfer  data  between  jobs  running 
on  the  same  computer  or  on  different  computers  with  the  same 
word  size,  integer  and  floating  word  formats,  and  alphanumeric 
character  representation.  Internal  format  is  written  and  read 
using  direct  transfer  of  computer  words  without  FORTRAN  format 
conversion  and  uses  binary  integer  and  floating  data  formats 
and  the  local  character  representation  for  alphanumeric  data 
assuming  four  left- justified  characters  per  word  (the  term 
"left-justified"  is  used  here  to  indicate  the  first  four 
character  positions  in  a  word). 

External  format  is  used  to  transfer  data  between  jobs  running 
on  different  computers.  The  records  are  written  and  read  using 
FORTRAN  format  conversion.  External  format  is  less  efficient 
than  internal  format  but  allows  transfer  of  data  between  com¬ 
puters  with  different  internal  data  representations. 

3.1.2  Physical  File  Characteristics 

There  is  a  constant  logical  record  length  for  any  one  DTF  al¬ 
though  this  length  may  change  between  internal  and  external 
format  DTF's  and  between  different  computers.  An  internal  re¬ 
cord  always  contains  1024  words,  while  an  external  record 
always  contains  4096  characters.  Thus,  certain  types  of  re¬ 
cord  have  different  information  capacities  for  internal  and 
external  formats.  Whenever  this  section  refers  to  a  DTF 
record,  the  information  transferred  by  a  single  FORTRAN  "READ" 
statement  is  assumed.  For  external  format  records,  the  "READ" 


is  formatted  and  requires  transfer  of  4096  characters.  Inter¬ 
nal  format  "READ'S"  are  unformatted  and  require  transfer  of 
1024  words.  The  physical  block  structure  of  a  DTF  may  be  dif¬ 
ferent  for  different  computers  and  installations  as  long  as 
the  above  requirements  are  satisfied.  When  a  DTF  is  used  to 
transfer  data  between  different  computers,  special  block  struc¬ 
tures  may  be  required  to  satisfy  the  system  requirements  for 
both  computers.  It  is  the  local  installation's  responsibility 
to  assure  that  the  data  storage  structure  on  tape  or  disc  is 
appropriate  so  that  the  correct  data  are  transferred  for  each 
READ. 

The  DTF  is  organized  sequentially  rather  than  using  direct 
access.  The  FCP  reads  the  DTF  using  one  pass  through  the  file 
without  rewinding  or  backspacing. 

3.1.3  Record  Types 

There  are  five  different  types  of  logical  record  identified  by 
a  numeric  label  located  at  the  start  of  each  record. 

1  =  Instruction.  An  instruction  record  contains  direc¬ 

tions  for  the  FCP  to  follow  in  transferring  the  DTF 
data  to  the  Master  File. 

2  =  Counter .  A  counter  record  contains  identifying 

counter  and  other  associated  information  for  data 
that  follow  (a  counter  is  an  integer  between  1  and 
999999  that  is  assigned  to  the  data  from  a  flight 
test  maneuver  or  a  particular  simulation  of  a  mane¬ 
uver  by  an  analytic  program). 

3  =  Item  Code.  An  item  code  record  contains  item  codes, 

item  code  descriptions  and  units,  and  associated  in¬ 
formation  for  data  that  follow  (an  item  code  is  a 
four-character  label  attached  to  a  sensor  or  trans¬ 
ducer  for  test  data  or  to  some  time-dependent  func¬ 
tion  output  by  a  simulation  program). 

4  =  Data.  A  data  record  contains  data  values. 

5  =  Info  File.  An  Info  File  record  contains  basic  in¬ 

formation  for  Info  File  groups. 

There  are  also  eleven  types  of  record  that  are  ignored  by  the 
FCP.  This  feature  allows  for  later  expansion  of  the  DTF  for¬ 
mat  and  allows  the  format  to  be  used  for  purposes  other  than 
processing  by  DATAMAP.  These  types  of  record  are  labeled  six 
through  sixteen. 
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3.1.4  Data  Structure 


Data  may  be  written  in  parallel.  That  is,  values  from  more 
than  one  channel  for  a  specific  time  instant  may  be  written 
contiguously  on  the  file.  Data  may  also  be  written  in  series 
as  a  special  case  of  parallel.  A  bundle  is  defined  as  a  set 
of  one  or  more  data  values  from  a  like  number  of  data  channels 
that  all  correspond  to  one  instant  of  time  and  that  are  writ¬ 
ten  consecutively  on  the  DTF. 

3.1.5  Sample  Rates 

Data  must  be  time  based  but  the  sample  rate  may  be  variable. 

If  the  sample  rate  is  variable,  each  bundle  must  contain  the 
time  instant  for  the  bundle  as  a  data  value  in  the  bundle  cor¬ 
responding  to  a  prespecified  item  code. 

3.1.6  Info  File  Group  Information 

The  DTF  format  will  accomodate  the  information  necessary  to 
write  DATAMAP  Info  File  groups .  The  FCP  has  the  capability 
to  extract  this  information  and  generate  a  file  of  valid  Info 
File  groups.  This  file  must  be  concatenated  with  an  Info 
File  base  data  set  that  contains  the  initial  group  for  the 
Info  File  and  other  groups  if  necessary.  This  concatenated 
pair  of  data  sets  would  form  the  Info  File  for  the  DATAMAP 
Processing  Program. 

3.2  DTF  RECORD  FORMATS 

3.2.1  Specific  Data  Representation 

Internal  format  records  are  treated  as  sequences  of  words  with 
only  two  specific  assumptions  about  the  internal  word  size  or 
structure  in  the  host  computer.  First,  integer  words  must  be 
the  same  size  (i.e.,  number  of  bits)  as  floating  words.  Sec¬ 
ond,  a  word  must  hold  at  least  four  characters  in  the  inter¬ 
nal  character  representation  used  by  the  computer.  The  DATAMAP 
source  code  makes  the  same  assumptions  so  that  no  new  restric¬ 
tion  is  imposed  on  the  applicability  of  DATAMAP.  Information 
is  stored  as  binary  integer  or  floating  numbers,  or  as  char¬ 
acter  strings  with  four  left-justified  characters  allocated  to 
each  word.  Unused  word  positions  must  be  occupied  in  the  file 
even  though  the  contents  of  the  words  are  ignored. 

External  format  data  are  treated  as  a  sequence  of  characters. 
The  assumption  is  made  that  the  computer  system  will  be  able 
to  translate  the  character  representation  on  the  DTF  (e.g., 
ASCII)  to  the  internal  character  representation  of  the  com¬ 
puter  running  DATAMAP  (e.g.,  EBCDIC).  A  preprocessing  step 
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may  be  required  to  translate  character  representations  such  as 
from  ASCII  to  EBCDIC.  The  capability  is  not  specifically  pro¬ 
vided  in  DATAMAP.  Information  is  coded  using  the  'I1,  'A', 
and  ' E '  format  specifications.  Unused  character  positions 
must  always  be  occupied,  although  the  contents  of  a  position 
may  be  ignored.  Thus,  a  DTF  external  format  record  must 
always  contain  the  full  4096  characters. 

3.2.2  Record  Type  Label 

The  first  data  field  for  every  kind  of  record  is  the  type 
label.  This  label  contains  the  number  corresponding  to  the 
type  of  record  as  specified  in  Paragraph  3.1.3.  For  internal 
format  records,  this  label  is  an  integer  word.  For  external 
format  records,  this  label  is  an  integer  coded  in  "14"  format. 

3.2.3  Instruction  Records 

Instruction  records  (type  number  =  1)  allow  the  control  input 
for  the  FCP  to  be  carried  inside  the  DTF.  An  instruction  re¬ 
cord,  as  depicted  in  Figure  14,  can  contain  as  many  as  56 
lines  of  instructions  in  either  the  internal  or  external  for¬ 
mats.  The  second  field  of  the  instruction  record  is  an  in¬ 
teger  indicating  the  number  of  lines  actually  stored  in  the 
record.  If  more  than  56  program  instruction  lines  are  re¬ 
quired,  more  instruction  records  can  be  written.  A  line  of 
instructions  is  72  characters  long,  although  the  FCP  requires 
that  the  entries  on  the  line  may  not  extend  past  character 
position  60.  Positions  61  through  72  should  contain  blanks. 

3.2.4  Counter  Records 

The  primary  purpose  of  a  counter  record  is  to  associate  a 
counter  with  a  set  of  data.  As  indicated  in  Figure  15,  time 
base  information  may  optionally  be  included  in  a  counter  re¬ 
cord.  Four  of  the  other  quantities,  Gross  Weight,  Center  of 
Gravity,  Model  Number,  and  Ship  Number,  are  used  only  for 
labeling  purposes.  If  they  are  left  blank  or  zero,  the  opera¬ 
tion  of  DATAMAP  will  not  be  impaired.  The  other  fields  are 
stored  on  the  Master  File  but  are  not  used  for  any  other  pur¬ 
pose  . 

Figure  16  shows  the  sub- fields  of  the  time  base  field  in  the 
counter  records;  the  same  time  base  sub-field  organization  is 
used  in  the  item  code  records.  There  are  four  entries  in  this 
field.  The  second  entry  is  reserved  for  the  start  time  of 
data  but  is  currently  ignored  and  assumed  to  be  zero.  Thus, 
the  time  base  is  specified  by  the  first,  third,  and  fourth 
entries.  The  first  entry  is  an  integer  between  zero  and  three 
that  indicates  both  the  method  of  time  base  specification  and 
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Field  Contents 


•  Record  type 
label  =  1 

•  Number  of  instruction 
lines  in  record 

•  Unused 


•  Instruction  line  1 


•  Instruction  line  2 


•  Instruction  line  J 


•  Instruction  line  56 


Word 


Numbers  Format 


Character 
Positions  Format 


Fiqure  14 


DTF  instruction  record  format 


Internal 


External 


Field  Contents 

•  Record  type  label  =  2 

•  Time  base 
information 

•  Unused 

•  Counter 

•  Flight  Number 

•  Gross  Weight 

•  Center  of  Gravity 

•  CG  Code 

•  Model  Number 

•  Ship  Number 

•  Date 

•  Time 

•  Model  Code 

•  Test/Analytic  Indicator 
0=unspec , 1=test,2=anal 
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Word 

Numbers 


1 


2-5 


6-21 

22 

23-24 

25 

26 

27 

28-29 

30-31 

32-33 

34-36 

37-38 

39 

40- 

1024 


Field 

Format 

Character 

Positions 

Field 

Format 

Binary 

I nteger 

1-4 

14 

See 

Fig.  16 

5-36 

See 

Fig.  16 

37-200 

Binary 

Integer 

201-208 

18 

2A4 

209-216 

2A4 

Binary 

Floating 

217-228 

E12.6 

Binary 

Floating 

229-240 

E12.6 

A4 

241-244 

A4 

2A4 

245-252 

2A4 

2A4 

253-260 

2A4 

2A4 

261-268 

2A4 

3A4 

269-280 

3A4 

2A4 

281-288 

2A4 

Binary 

Integer 

289-292 

14 

293- 

4096 

Figure  15.  Counter  record  format. 
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• 

Time  base  type 

1 

Binary 

1-4 

14 

(see  text) 

Integer 

• 

Start  time  (currently 

2 

Binary 

5-16 

E12.6 

ignored) 

Floating 

• 

Time  increment  or 

3 

Binary 

17-28 

E 1  2 . 6 

sample  rate  (in  seconds 

Floating 

or  samples  per  second) 

• 

Item  code  (currently 

4 

A4 

29-32 

A4 

must  be  "TIME") 

Figure  16.  Time  base  field  format. 
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the  meaning  of  the  third  and  fourth  entries .  Following  is  a 
description  of  the  time  base  specification  for  each  first  entry 
value . 

0...  The  time  base  is  not  specified  in  this  record. 

1.. .  The  time  base  is  specified  with  a  constant  sample 

interval.  This  interval  is  the  third  entry  (in 
seconds).  The  fourth  entry  is  ignored. 

2.. .  The  time  base  is  specified  with  a  constant  sample 

rate.  This  rate  is  the  third  entry  (in  samples  per 
second).  The  fourth  entry  is  ignored. 

3.. .  The  time  base  has  a  variable  sample  rate  and  is 

specified  with  a  time  instant  for  each  bundle.  The 
time  instants  are  contained  in  the  bundles  as  data 
values  corresponding  to  the  item  code  named  in 
entry  four.  Currently,  this  item  code  name  must  be 
"TIME".  The  third  entry  is  ignored. 

3.2.5  Item  Code  Records 

Item  code  records  serve  to  associate  item  codes,  item  code 
descriptions,  unit  labels,  and  Info  File  information  with  the 
subsequent  data  records.  As  shown  in  Figure  17,  the  fourth 
field  in  the  item  code  record  is  an  integer  indicating  the 
number  of  item  codes  listed  in  the  record.  Information  for  as 
many  as  32  item  codes  may  be  contained  in  one  item  code  record. 
Several  contiguous  item  code  records  can  be  used  to  identify  a 
greater  number  of  item  codes.  Each  item  code  corresponds  by 
position  in  the  list  with  the  data  values  having  the  same 
position  in  the  subsequent  bundles.  For  example,  with  two 
contiguous  item  code  records,  the  tenth  item  code  entry  in  the 
second  record  corresponds  to  the  42nd  data  value  in  each  of 
the  subsequent  bundles. 

Time  base  information  may  be  included  in  an  item  code  record. 
This  field  has  the  same  format  as  shown  in  Figure  16. 

Figure  18  is  a  breakdown  of  the  information  listed  for  each 
item  code.  The  item  code  itself  must  always  be  present.  An 
item  code  must  be  four  characters  in  length  and  may  not  in¬ 
clude  a  space,  comma,  slash,  or  single  quote.  The  item  code 
description  and  the  units  label  are  used  by  the  Processing 
Program  in  displays  so  that  if  they  were  left  blank  the  cor¬ 
responding  display  fields  would  be  left  blank  as  well.  Most 
of  the  balance  of  the  information  is  for  ar.  Info  File  if  the 
item  code  is  to  be  associated  with  an  Info  File  group.  Refer 
to  the  description  of  the  Info  File  format  in  Volume  I  for  a 
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•  Item  Code 

•  I tera  Code 
Description 

•  Item  Code 
Units 

•  Info  File  Group 
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•  Info  File  Column 
Number 

•  Info  File  Row 
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•  Info  File  Doublerow 
0=top,  1=bottom 

•  Info  File  Minor 
Position 

•  Modulo  Value 

•  Unused 


Word 

Numbers 

In  Field 

Sub- 

Field 

Format 

Character 
Positions 
In  Field 

Sub- 

Field 

Format 

1 

A4 

1-4 

A4 

2-14 

1  3A4 

5-56 

1  3A4 

15-17 

3A4 

57-68 

3A4 

18 

A4 

69-72 

A4 

19 

Binary 

Integer 

73-76 

14 

20 

Binary 

Integer 

77-80 

14 

21 

Binary 

Integer 

81-84 

14 

22 

Binary 

Floating 

85-96 

E12.6 

23 

Binary 

Floating 

97-108 

E12.6 

24-31 

109-1 24 

Figure  18.  Item  code  information  field  format. 
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description  of  the  fields.  The  last  sub-field  contains  the 
modulus  value  for  modulo  data.  In  particular,  azimuth  in  de¬ 
grees  should  be  modulo  360.  For  non-modulo  data,  this  value 
must  be  set  to  zero.  The  modulus  value  must  not  be  less  than 
zero. 

3.2.6  Data  Records 

Figure  19  shows  the  structure  of  a  data  record.  The  second 
entry  in  the  record  is  an  integer  that  gives  the  number  of 
data  values  contained.  Notice  that  an  internal  format  record 
can  contain  as  many  as  1020  data  values  while  an  external  for¬ 
mat  data  record  can  contain  no  more  than  340  data  values 
because  12  characters  are  used  for  each  value.  Thus,  more  re¬ 
cords  are  required  to  store  data  in  external  format  than  are 
required  for  internal  format.  Section  3.3  will  discuss  the 
storage  of  bundles  of  data  values  in  data  records. 

Modulo  data  must  be  between  zero  and  the  modulus  for  the  chan¬ 
nel  (inclusive).  Modulo  data  are  assumed  to  represent  a  piece- 
wise  continuous  function  that  is  monotonically  increasing 
except  where  the  modulus  limit  is  crossed,  whereupon  the  func¬ 
tion  begins  at  zero  again.  The  slope  of  the  function  before 
and  after  the  modulus  crossing  is  assumed  to  approach  the  same 
limit  as  the  crossing  is  approached.  Accordingly,  when  a 
datum  value  for  a  modulo  channel  is  less  than  the  previous 
datum  value  for  the  channel,  a  break  or  modulus  crossing  is 
indicated.  When  a  break  occurs,  interpolation  is  performed  by 
adding  the  modulus  to  the  data  after  the  break,  interpolating, 
and  then  subtracting  the  modulus  from  any  interpolated  value 
that  is  greater  than  the  modulus.  Two  points  in  succession 
must  not  indicate  breaks  (i.e.,  the  input  data  values  must  not 
decrease  for  two  points  in  succession). 

3.2.7  Info  File  Records 

An  Info  File  record  contains  the  basic  information  for  genera¬ 
tion  of  one  or  more  Info  File  groups.  As  shown  in  Figure  20, 
basic  Info  File  group  information  sets  for  as  many  as  six 
groups  may  be  contained  in  an  internal  format  Info  File  record 
An  external  format  record  can  contain  information  for  no  more 
than  three  groups.  Figure  21  shows  the  contents  of  a  set  of 
information  for  one  group.  Refer  to  Volume  I,  Section  5  for  a 
description  of  the  various  fields.  The  row  positions  and 
labels  are  not  required  for  one-dimensional  groups. 

Notice  that  Info  File  records  do  not  contain  all  of  the  in¬ 
formation  required  for  production  of  Info  File  groups.  Item 
code  records  contain  the  item  code  names  and  point  to  the  ap¬ 
propriate  group  name  and  row/column/double-row  element  posi¬ 
tion  within  the  group. 
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Figure  19.  Data  record  format 


Internal 


External 


Field  Contents 

•  Record  type 
label  =  5 

•  Number  of  groups 
represented  in  record 

•  Unused 

•  First  Info  File 
Group  Information 
See  Figure  21 

•  Second  Info  File 
Group  Information 
See  Figure  21 

•  Third  Info  File 
Group  Information 
See  Figure  21 

•  Fourth  Info  File 
Group  Information 
See  Fiqure  21 

•  Fifth  Info  File 
Group  Information 
See  Figure  21 

•  Sixth  Info  File 
Group  Information 
See  Figure  21 
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4096 

See 

!  Fiq .  21 

1 
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Figure  20.  Info  file  record  format 
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Figure  21.  Info  file  record  group-information  field  format. 
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3.3  DTF  RECORD  SEQUENCE 

A  prescribed  order  for  the  different  types  of  records  must  be 
followed  so  that  the  different  types  of  information  are  avail¬ 
able  as  required.  This  sequence  has  been  made  as  flexible  as 
possible  to  accommodate  the  idiosyncrasies  of  various  data 
bases. 

3.3.1  Instruction  Records 

If  instruction  records  are  included  in  a  DTF,  they  must  form  a 
contiguous  group  at  the  beginning  of  the  DTF.  No  other  type 
of  record  may  appear  before  the  last  instruction  record.  The 
order  of  the  instruction  records  must  maintain  the  proper 
sequence  of  the  control  input  lines.  Thus,  the  first  line  of 
the  first  instruction  record  must  contain  the  intended  first 
instruction  line,  and  the  last  active  line  of  the  last  instruc¬ 
tion  record  must  contain  an  'END'  entry. 

Instruction  records  are  not  required  in  a  DTF.  The  FCP  is 
able  to  read  instructions  from  the  system  input  file.  In 
fact,  the  FCP  must  always  read  one  line  of  instructions  from 
the  system  input  file,  and  the  instructions  on  this  line  may 
indicate  that  data  input  is  from  a  DTF  and  that  control  input 
is  also  from  the  DTF  (see  Volume  I). 

3.3.2  Data  Records 

A  sequence  of  bundles  of  data  values  that  correspond  to  a 
strictly  monotonically  increasing  sequence  of  time  instants 
and  that  are  written  contiguously  on  a  DTF  is  called  a  bundle 
sequence .  A  sequence  of  data  records  containing  a  bundle 
sequence  may  not  include  any  interspersed  records  of  another 
type,  any  data  records  containing  data  values  outside  the 
bundle  sequence,  or  any  data  records  containing  no  data  values. 
The  number  of  data  values  for  each  bundle  in  a  bundle  sequence 
must  be  a  constant  and  must  equal  the  number  of  item  codes 
specified  for  the  bundle  sequence. 

As  shown  in  Figure  22,  a  bundle  may  span  more  than  one  data 
record,  or  one  or  more  bundles  may  be  stored  in  each  data 
record.  A  bundle  may  not  span  more  than  one  data  record  if  it 
does  not  start  at  the  beginning  of  a  data  record.  Thus,  un¬ 
used  space  will  frequently  be  present  in  a  data  record.  All 
unused  space  in  a  data  record  must  be  at  the  end  of  the  record. 
If  there  is  sufficient  unused  space  at  the  end  of  a  data  re¬ 
cord  to  contain  a  bundle,  that  record  must  be  the  last  for  the 
bundle  sequence.  The  end  of  the  bundle  sequence  is  denoted  by 
a  record  of  some  type  other  than  a  data  record  or  by  the  end 
of  the  DTF. 
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ADDITIONAL  UNSPECIFIED  RECORDS 


Figure  22.  Storage  of  bundle  sequences  in  data  record  sequences. 


In  Figure  22,  three  examples  of  unacceptable  bundle  sequence 
storage  are  given.  In  the  first  example,  bundles  that  do  not 
start  at  the  beginning  of  a  record  span  more  than  one  record. 

In  the  second  example,  one  record  does  not  contain  as  many 
bundles  as  possible  and  this  record  is  not  the  last  for  the 
bundle  sequence.  In  the  third  example,  an  empty  data  record 
occurs . 

3.3.3  Item  Code  and  Counter  Records 

Each  bundle  sequence  must  be  preceded  by  a  definition  sequence, 
which  consists  of  one  counter  record  and  one  or  more  item  code 
records.  Either  the  counter  record  or  the  item  code  records 
(but  not  both)  may  be  implied.  That  is,  the  counter  or  item 
code  records  may  be  left  out  of  the  definition  sequence  and 
implied  to  be  the  same  item  code  or  counter  records  that 
applied  to  the  previous  bundle  sequence.  Clearly,  the  first 
definition  sequence  in  the  DTF  may  not  have  any  implied  re¬ 
cords  . 

If  more  than  one  item  code  record  is  required,  these  records 
must  be  in  contiguous  sequence  with  no  interspersed  records  of 
any  other  type.  If  an  item  code  record  specifies  fewer  than 
128  item  codes,  it  must  be  the  last  in  this  sequence.  The 
counter  record  may  appear  before  or  after  the  item  code  re¬ 
cords  . 

3.3.4  Info  File  Records 

An  Info  File  record  must  appear  before  all  the  item  code  re¬ 
cords  that  reference  the  groups  named  in  the  Info  File  record. 
An  Info  File  record  may  appear  inside  a  definition  sequence 
between  a  counter  record  and  a  set  of  item  code  records. 
Otherwise,  an  Info  File  record  may  be  placed  anywhere  in  the 
DTF  that  is  not  in  violation  of  the  rules  stated  so  far. 

An  Info  File  group  name  should  not  appear  twice  in  the  Info 
File  records  of  a  DTF.  If  this  event  should  occur,  the  first 
declaration  of  the  group  name,  together  with  the  accompanying 
structure  and  labels,  will  be  assigned  all  item  code  record 
references  to  that  group  name.  Groups  will  be  generated  for 
all  other  mentions  of  the  group  name,  but  these  groups  will 
contain  only  the  "NULL"  item  code.  Info  Files  with  redundant 
group  names  will  work  properly  if  the  first  group  with  the 
redundant  name  is  correct.  That  is,  the  subsequent,  identical 
group  names  will  be  ignored.  However,  this  is  both  ineffici¬ 
ent  and  confusing. 

There  may  be  several  item  code  references  to  the  same  row/ 
column/double-row  element  of  an  Info  File  group.  In  this 
event,  the  last  reference  in  the  DTF  is  used. 
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3.3.5  Unspecified  Record  Types 

Record  types  six  through  sixteen  may  be  placed  anywhere  in  the 
DTF  that  is  not  in  violation  of  the  rules  stated  so  far.  In 
such  locations,  these  records  will  be  ignored  by  the  FCP. 

3.3.6  Examples  of  Record  Sequences 

Figure  23  gives  examples  of  acceptable  and  unacceptable  record 
sequences.  Six  examples  of  unacceptable  sequences  are  given. 

In  the  first  example,  the  instruction  records  are  not  the  first 
records  on  the  DTF.  For  example  two,  two  item  code  records  are 
separated  by  a  counter  record.  In  the  third  sequence,  there 
are  two  counter  records  in  sequence  with  no  intervening  data 
records.  In  the  fourth  example,  two  item  code  records  are 
separated,  this  time  by  an  Info  File  record.  In  example  five, 
the  first  bundle  sequence  in  a  DTF  is  not  preceded  by  a  com¬ 
plete  definition  sequence.  That  is,  there  is  no  item  code 
record  before  the  sequence  and  no  item  code  record  can  be 
implied.  In  the  last  example,  there  is  no  definition  sequence 
for  the  second  bundle  sequence.  That  is,  the  counter  record 
and  item  code  record(s)  cannot  both  be  implied  as  the  previous 
counter  and  item  code  records. 
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Figure  23.  Examples  of  acceptable  and  unacceptable  record 
sequences . 
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4.  PROCESSING  PROGRAM 


4.1  STRUCTURE  AND  FLOW 

The  DATAMAP  Processing  Program  was  designed  to  be  broken  into 
overlays  corresponding  to  various  functions  of  the  program. 
Figure  24  shows  a  diagram  of  program  flow  from  block  to  block 
with  the  main  block  excluded.  The  Main  program  is  not  shown 
in  this  figure  and  serves  only  to  transfer  control  from  block 
to  block  and  store  certain  utility  routines  used  by  more  than 
one  block. 

The  Startup  or  Program  Initialization  block  extracts  setting 
commands  from  the  user  and  initializes  and/or  validates  certain 
files  including  the  Master  File.  The  User  Command  Interface 
reads  and  checks  the  user  commands  and  produces  an  instruction 
matrix  (common  block  /DIRECT/)  that  can  be  interpreted  by  the 
other  overlay  blocks.  The  Processing  block  performs  all  the 
data  retrieval,  data  processing,  and  data  display  functions  of 
the  program  according  to  the  instruction  matrix.  The  Command 
Sequence  block  performs  the  actual  editing  of  command  sequence 
blocks.  The  Menu  block  generates  non-data  displays  to  assist 
the  user  in  generating  processing  commands.  The  Terminate 
function  is  accomplished  in  program  MAIN. 

4.2  PROGRAM  INITIALIZATION 

Subroutine  STRTUP  is  the  control  routine  for  this  block.  The 
required  and  optional  user  inputs  for  this  phase  are  described 
in  Section  5.1  of  Volume  I.  The  entries  are  read  and  inter¬ 
preted  using  the  READF  and  MATCHR  utilities,  as  well  as  the 
READl  and  READOP  routines  and  code  within  STRTUP. 

In  addition  to  extracting  user  control  options  for  the  program 
run,  the  Program  Initialization  block  performs  several  other 
setup  functions.  The  first  function  performed  in  STRTUP  is  to 
call  the  CPU  timer  initialization  routine,  SETIME.  SETIME  is 
installation  dependent  and  may  be  replaced  by  another  routine 
or  entry  name  that  starts  the  CPU  timer  (see  Section  6.4). 

After  the  user  options  have  been  specified,  STRTUP  calls 
ALLSCR  to  initialize  each  of  the  direct  access  disc  scratch 
areas,  including  SCF1,  SCF2,  SCF3,  and  the  temporary  scratch 
area.  All  of  the  scratch  files  are  contained  in  a  single 
direct  access  data  set  and  are  addressed  by  a  single  I/O  file 
reference  number.  The  files  are  addressed  individually  as 
different  pseudo-devices  using  the  RMS,  WMS,  and  FMS  subrou¬ 
tines.  The  pseudo-device  numbers  are  listed  in  Section  5.1. 

The  scratch  files  may  be  "PERMANENT"  or  "TEMPORARY."  If 
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the  scratch  files  are  labeled  to  be  "PERMANENT,"  then  no 
specific  initialization  is  performed.  Instead,  the  first 
and  last  record  in  the  data  set  are  read  to  test  the  ini¬ 
tialization,  Then,  certain  information  about  each  scratch 
file  that  describes  the  file  contents  is  stored  in  program 
memory.  "TEMPORARY"  scratch  files  must  be  initialized  by 
writing  dummy  records  on  every  record  position  of  the  sequen¬ 
tial  alias  for  the  direct  access  file.  This  initialization 
is  performed  using  subroutine  INIDAF  as  described  in  Section 
5.  Notice  that  the  "TEMPORARY"  designation  means  that  the 
scratch  files  will  require  initialization  and  does  not  des¬ 
cribe  the  planned  disposition  of  the  files  after  the  Proces¬ 
sing  Program  run  is  complete.  Thus,  "TEMPORARY"  scratch 
files  may  later  be  stored  on  a  permanent  basis. 

The  information  that  the  scratch  files  are  "PERMANENT"  or 
"TEMPORARY"  cannot  be  stored  in  the  scratch  files  because  an 
attempted  direct  access  read  from  an  uninitialized  file  could 
result  in  immediate  termination  of  the  program  run.  In¬ 
stead  this  information  is  specified  by  parameter  communica¬ 
tion  from  the  computer  system,  by  user  option  specification 
(see  Volume  I,  Section  5.1),  or  by  default.  Parameter  com¬ 
munication  is  accomplished  for  IBM  systems  using  subroutine 
PARMGT.  A  parameter  string  value  of  "PERM"  indicates  "PERMA¬ 
NENT"  or  any  other  value  indicates  "TEMPORARY."  If  parameter 
communication  from  the  system  to  a  program  is  not  available 
for  a  particular  computer  operating  system,  then  a  dummy  PARMGT 
subroutine  may  be  used  that  indicates  a  "PERMANENT"  or  "TEMPOR¬ 
ARY"  setting  by  default.  In  either  case,  the  user  can  over¬ 
ride  the  setting  during  the  Initialization  Phase. 

After  ALLSCR  returns,  STRTUP  calls  INFOST.  This  routine  reads 
the  initial  group  of  the  Info  file  and  stores  the  keywords, 
item  codes,  and  associated  numeric  values  in  common  block 
/SINGIF/.  Then  STRTUP  calls  EDINIT  to  read  the  initial  record 
of  the  direct  access  Command  Sequence  (Edit)  file,  to  check 
the  size  of  the  file,  and  to  set  certain  variables  based  on 
this  size. 

Following  the  EDINIT  call,  STRTUP  extracts  the  name  of  the 
Master  File  partition  that  is  to  be  accessed  in  the  first 
partition  access  slot  during  the  program  run  (although  the 
partition  can  be  changed  during  the  program  run).  Then  DASTRT 
is  called  to  find  the  partition  and  to  set  up  the  retrieval 
routines  to  address  the  partition  data.  If  the  partition  name 
is  successfully  found  and  the  Master  File  is  properly  initial¬ 
ized,  STRTUP  transfers  the  current  date  into  the  system  output 
label,  DEFCOM  (in  common  block  /DEFLT/ ) ,  and  exits.  If  the 
partition  name  is  not  found,  the  user  is  requested  to  enter  a 
corrected  partition  name.  The  user  may  request  a  menu  listing 
of  partitions  and  subroutine  MPARTX  is  used  for  this  listing. 
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4.3  USER  INTERFACE 

The  User  Interface  generates  an  instruction  matrix  for  each 
command  step.  This  matrix  is  generated  by  extracting  from  the 
user  a  sequence  of  entries  that  specify  option  selections  for 
the  matrix  values.  Relatively  few  of  the  instruction  matrix 
values  are  specified  for  each  command  step,  since  a  small  sub¬ 
set  of  the  total  number  of  command  specifications  is  required 
for  execution  of  each  different  command.  For  example,  a  MENU 
command  will  not  require  specification  of  the  static  pressure 
or  outside  air  temperature  instructions. 

A  pseudo  tree  structure  directs  the  program  in  specifying  a 
sequence  that  includes  all  entries  required  for  execution  of 
the  command  step  that  is  being  generated.  Each  element  of  a 
sequence  depends  upon  the  options  selected  for  the  previous 
elements  of  the  same  sequence.  For  convenience  in  specifying 
defaults,  generating  HELP  messages,  and  explaining  the  entry 
sequences,  each  sequence  is  broken  into  one  or  more  substeps 
as  explained  in  Volume  I.  This  tree  structure,  together  with 
allowed  options  and  HELP  message  strings,  is  stored  as  data  in 
common  blocks.  The  user  interface  code  interprets  the  stored 
tree  structure  and  maintains  the  syntax  for  user  input.  Thus, 
a  change  in  user  commands  that  does  not  conflict  with  the 
current  command  syntax  should  require  only  a  change  in  the 
block  data  statements  and  array  sizes  and  no  change  in  the 
executable  user  interface  code.  Paragraph  4.3.1  discusses 
this  code,  while  Paragraph  4.3.2  covers  the  requirements  for 
the  block  data  tree  structure. 

4.3.1  User  Interface  Routines 

USER  is  the  main  routine  for  the  user  interface  block.  Fig¬ 
ures  25  and  26  depict  the  flow  for  subroutine  USER,  which 
encompasses  most  of  the  general  logic  for  the  user  interface 
block.  The  other  routines  for  this  block  are  briefly  de¬ 
scribed  below. 

INISTP  is  the  first  routine  called  by  USER  to  set  the  default 
values  for  the  step,  to  initialize  certain  pointers,  to  calcu¬ 
late  the  CPU  time  for  the  previous  step  execution,  and  to 
print  the  'NEW  STEP'  message  that  prompts  the  user  for  the 
next  command  step. 

LININP  is  used  to  obtain  a  scanned,  valid  line  of  user  input. 
LININP  will  obtain  the  line  from  system  input  or  the  command 
sequence  file  (using  EDINP )  according  to  the  edit  mode  indica¬ 
ted  by  the  variable  LED  (in  the  common  block  /LEDIT/).  The 
line  is  scanned  by  READF  to  check  for  line  errors,  to  evaluate 
numeric  entrys,  and  to  delimit  string  entries. 
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Figure  26.  User  interface  flow  diagram  (second  part). 
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MATCHR  is  used  to  match  individual  strings  of  characters  with 
an  array  of  four-character  keywords  stored  in  common  block/ 
WLIST/. 

INTERP  is  called  to  interpret  each  individual  user  entry.  The 
various  categories  of  entries  are  numbers,  nulls  (defaults), 
keyword  strings,  non-keyword  strings  (e.g.,  an  item  code), 
specified  defaults  (i.e.,  defaults  specified  by  a  slash  that 
terminates  a  substep),  and  comment  entries.  INTERP  assures 
that  the  entry  conforms  to  the  allowed  values  for  the  current 
tree  position  and  codes  the  entry  in  the  instruction  matrix. 

The  HELP  mode  prompting  message  generation  routine,  HELPR,  is 
called  by  LININP  when  the  HELP  indicator,  IHELP,  is  set  to 
one.  HELPR  prints  a  prompting  message  for  the  current  entry 
and  looks  ahead  in  the  tree  structure  to  print  prompting 
messages  for  subsequent  entries. 

TREEUP  updates  the  tree  structure  position  and  the  substep 
number,  ISBSTP,  as  necessary. 

EDSAVE  (see  Paragraph  4.5.1)  is  used  to  save  a  command  step  on 
the  command  sequencing  file. 

LISTAD  maintains  the  listing  of  the  current  command  step  in¬ 
cluding  default  entries.  NTOSTR  (see  Section  4.2)  is  used  to 
convert  numeric  values  to  string  form. 

Subroutine  USERLC  is  used  to  perform  the  required  actions  for 
certain  commands  inside  the  user  interface  block.  The  pro¬ 
cessing  required  for  these  commands  is  trivial.  This  routine 
performs  processing  for  the  commands  "UTILITY,"  "SET,"  "COM¬ 
MENT,"  "BUILD,"  "EDIT/NEW,"  and  "NOEDIT." 

4.3.2  User  Input  Encoding 

The  basic  tree  structure  for  the  user  interface  is  contained 
in  the  two-dimensional  array  NPOINT.  The  structure  consists 
of  many  "nodes"  and  each  node  specifies  a  required  entry  for  a 
command.  A  complete  command  is  a  specific  path  through  one  or 
more  nodes.  Some  nodes  allow  branching  in  the  command  path 
depending  upon  the  entry  for  the  node.  Each  node  has  a  speci¬ 
fic  index  number.  The  second  array  subscript  for  NPOINT 
corresponds  to  the  tree  node  index.  Thus,  each  tree  node  is 
mapped  to  a  unique,  positive  integer  (e.g.,  6),  which  specifies 
three  words  in  NPOINT  (e.g.,  NPOINT  (1,6),  NPOINT  (2,6), 

NPOINT  (3,6)).  The  first  subscript  is  dimensioned  to  three 
and  these  three  allowed  values  correspond  to  three  kinds  of 
information  stored  in  the  array.  Table  2  lists  the  present 
tree  structure  as  defined  by  NPOINT.  Figure  27  shows  a  general 
example  of  part  of  the  NPOINT  structure. 
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TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION  (CONTINUED) 


TABLE  2.  USER  INTERFACE  TREE  STRUCTURE  FOR  ENTRY  SPECIFICATION  (CONTINUED) 


(3  ,N) 
S  LOC 

CO 

co 

f" 

o 

CO 

rH 

Lf) 

in 

H  S5 

H 

H 

to 

o 

r- 

C" 

H 

C' 

§  O 

CN 

r- 

l-H  l-l 

O  EH 

04  CM 

z  o 

oo  2 

a 

rH  «H 

—  o 

>— V 

4»*^S 

2  J 

l n 

r~ 

00 

a>  cy> 

rH 

CM 

CN 

CM 

co  - 

CN  W 

rH 

H 

rH 

rH  «h 

rH 

K 

*. 

*» 

K 

Eh  2 

00 

lO 

oo  r^ 

ct>  cr> 

CO 

2  H 

rH 

CN 

CM  CO 

CM 

n 

rH 

H 

rH  rH 

H  H  ^ 

rH 

O  Eh 

CO 

o 

w 

-w* 

•w*  •» 

o 

co 

t- 

CO 

ao 

O 

O  00 

o'  o' 

co 

vO 

rH 

H 

CM 

CO 

m  cm 

Lf)  "Si* 

H 

i — i 

H 

H 

2 

CM 

CN 

rH 

H 

rH  rH 

H  H  H 

CO 

rH 

CN 

CN 

CN 

1 

1 

1 

1 

1 

Z 
-CJ 
rH  O 
—  J 

Is  CM 
►h  J 
O  U 


►3  2 

OS  w 

o  a 


I  04 


CN 

CN 

LD 

in 

CO 

CO 

CN 

in 

CN 

4* 

O 

O 

lO 

10 

00 

O' 

o 

O' 

H 

H 

\D 

<0 

vO 

lO 

10 

io 

H 

lO 

w 

>4 

1 

OS 

W 

1-4 

Eh 

2 

O' 

4—S 

LO 

cr» 

•w 

v£> 

>w' 

w 

W 

cn 

►H 

W 

in 

b-i 

CN 


cn  O' 


J 

< 

§ 

CO 

CO 

o 

OS 

u 


<N 


co 

>4  CO 

.J  u 

<  *-H 

z  H 

«q  co 

l-t 

O  EH  — 

H  <  o 

b  H 

<  CO 


CN  <N 


CN 


r'  <* 

rH  CN 


WWW 

J  CO  H 

W  CM  J 

CO  CO  < 


00 


O' 


o 

CN 


O 

CN 


5  6h 

CM 

CM 

CM 

CN 

CM 

CN 

CO 

CO 

CM 

CN 

CN 

to  cn 

U 

w  u 

00 

a* 

o 

rH 

CN 

CO 

"if 

in 

10 

r- 

2  o 

rH 

rH 

rH 

CN 

CM 

CN 

CN 

CN 

CM 

CN 

CN 

Eh  J 

rH 

rH 

rH 

fH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

69 


I 


os  —  j 
O  H 
Eh  5 ZP* 


W  O 
Ed  2 


Ed  Ed 
U  E 
< 

Eh  >h 
«  PS 


OS 

o 

Eh 

o 

i-i  < 

H 

WZN 
►4  <  r- 
u 

co  co 
cj  co 
W  M  w 
J  Eh  CO 
co  co  co 
E  i-h  Ed 
Ed  Eh  U 
co  <C  O 
E  Eh  OS 
Ed  co  Pm 


Hior' 

CM  CM  <N 


Ed  cm 

CO  ' 

2 

O  I  EH 
OH  2  E3 

CO 


CO  * -H 

Ed  co  Eh 
J  < 

M  I 

Eh  co 
co  id 
W  O  < 
O  OS  P 
Eh  U  Q 


tH  05 

*-H 

ftJ  OS 

s 

u  o 

o 

CO  Eh 

Q 

co 

00 

co 

CO 

00 

H 

00 

CO 

in 

o 

r-- 

O 

vO 

r- 

00 

co 

r-- 

00 

CM 

CM 

i-H 

CO 

1 — 1 

r-t 

G> 

i — ♦ 

eg 

CM 

CO 

<4* 

in 

O'* 

lO 

00 

CO 

co 

co 

CO 

co 

CO 

<4* 

CO 

on 

CM 

H 

' — i 

rH 

rH 

r — i 

O 

r- 1 

rH 

rH 

r— H 

CO 

co 

CO 

co 

CO 

-4< 

CO 

m 

co 

Sh 
co  cn 

CO 

co 

co 

CO 

CO 

CO 

CO 

CO 

co 

CM 

Ed 

w  y 

00 

a* 

o 

rH 

CM 

CO 

in 

VO 

CT 

2  o 

CM 

CM 

co 

co 

CO 

CO 

CO 

co 

co 

CO 

EH  J 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

i-H 

rH 

159  3  158  UNMASKED  ITEM  CODE  (20)  925  0 


NPOINT  ( 1 , N)  gives  the  subscript  location  in  LWORDS  (in  common 
block  /HLPWDS/)  for  the  appropriate  HELP  message  for  the  entry 
options  corresponding  to  the  tree  node  N.  The  actual  subscript 
location  given  will  be  for  the  LWORDS  value  specifying  the 
number  of  characters  in  the  HELP  message.  The  actual  message 
is  contained  in  the  subsequent  LWORDS  words  in  A4  format. 

Figure  28  shows  the  structure  of  a  typical  HELP  message  in 
LWORDS . 

NPOINT  (2,N)  specifies  the  subsequent  tree  position  for  the 
entry  sequence  in  one  of  three  ways.  If  the  value  is  zero, 
the  entry  sequence  (command)  is  complete.  If  the  value  is 
positive,  the  three  lowest  order  decimal  digits  are  the  tree 
node  index  for  the  next  entry.  For  example,  NPOINT ( 2, N)  = 

3009,  specifies  that  NP0INT(1,9),  NPOINT(2,9)  and  NPOINT  (3,9) 
provide  pointers  for  the  next  entry.  The  thousands  digit 
gives  the  substep  number  for  the  next  entry.  A  negative 
NPOINT ( 2 , N )  value  implies  a  branch  in  the  tree  structure  at 
the  current  position  and  points  to  a  sequence  of  pointer  en- 
trys  in  the  array  LISTP  (in  common  block  /ENTOPT/).  The  se¬ 
quence  of  values  contained  in  LISTP,  in  turn,  points  to  possi¬ 
ble  next  tree  nodes  in  a  manner  identical  to  that  described 
for  positive  or  zero  values  of  NPOINT(2,N).  The  manner  of 
choosing  the  appropriate  value  from  LISTP  is  described  in  the 
next  paragraph. 

NPOINT ( 3, N)  is  an  integer  value  that  points  to  the  first 
position  of  a  sequence  in  the  array  IENTOP  (in  common  block 
/ENTOPT/).  Each  sequence  in  the  IENTOP  array  corresponds  to 
one  value  for  the  second  subscript  of  the  instruction  matrix, 
IDIRCT.  The  first  word  in  an  IENTOP  sequence  gives  the  second 
subscript  value  for  the  corresponding  pair  of  entries  in  the 
instruction  matrix.  Table  3  lists  the  meaning  of  the  instruc¬ 
tion  matrix  positions.  Following  the  second  word  in  the 
IENTOP  sequence  are  one  or  more  numeric  values  that  specify 
allowed  options  for  the  entry.  The  second  word  is  an  integer 
that  specifies  the  number  of  option  specifications.  The 
option  specifications  in  IENTOP  are  integers  that  can  have 
three  interpretations.  A  positive  value  less  than  1000  speci¬ 
fies  an  allowed  keyword  entry  for  the  option  from  the  keyword 
list  IAA  (in  common  block  /WLIST/).  A  value  of  1000  specifies 
that  a  non-keyword,  four-character,  string  entry  (e.g.,  an 
item  code)  is  an  allowed  option.  A  negative  integer  specifies 
that  a  numeric  entry  is  allowed.  The  absolute  value  of  a 
negative  integer  points  to  the  first  of  two  floating  entries 
in  the  RANGOP  array  (in  common  block  /ENTOPT/)  which  give  the 
lower  and  upper  bounds  for  the  numeric  entry.  Numeric  or 
string  specifiers  must  always  be  the  last  entry  in  an  IENTOP 
sequence.  Figure  29  shows  the  structure  of  a  typical  IENTOP 
sequence.  If  the  current  NP0INT(2,M)  value  is  negative  so  as 
to  point  to  the  first  element  of  a  sequence  in  LISTP,  each 
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Figure  28.  Structure  of  typical  "HELP "  message. 
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element  of  this  sequence  corresponds  by  sequence  position  to 
one  of  the  options  from  IENTOP.  For  example,  if  the  LISTP 
sequence  contained  the  values  3021,  3045,  3064,  3082,  the 
option  sequence  in  IENTOP  is  48,  24,  39,  40  and  the  keyword 
number  24  is  selected,  then  the  next  tree  position  would  be 
45. 

The  instruction  matrix,  IDIRCT,  is  a  two-dimensional  array 
with  the  first  subscript  dimensioned  to  two.  The  second  sub¬ 
script  corresponds  to  the  instruction  matrix  number  as  listed 
in  Table  3.  IDIRCT(1,N)  indicates  the  selected  option  for  the 
instruction  and  IDIRCT(2,N)  contains  the  number  or  non-keyword 
string  if  such  an  option  was  selected.  An  IDIRCT(1,N)  value 
that  is  positive  and  less  than  10n0  indicates  the  position  in 
the  IENTOP  option  sequence  for  the  option  selected.  For 
example,  if  the  corresponding  IENTOP  sequence  held  five  al¬ 
lowed  options  and  the  third  option  position  was  selected,  then 
IDIRCT (1,N)  would  equal  the  integer  three.  An  IDIRCT (1,N) 
value  of  1000  indicates  that  the  entry  is  a  non-keyword  string 
held  in  IDIRCT (2, N).  An  IDIRCT (1,N)  value  of  -1  indicates 
that  the  instruction  is  a  floating  number  that  is  held  in 
IDIRCT (2,N).  This  floating  number  must  be  accessed  with  an 
equivalenced  array  which  is  normally  DIRECD. 

Default  values  are  coded  in  the  arrays  IDVAL  and  PVAL  (in 
common  block  /DEFLT/ ) .  IDVAL  must  be  dimensioned  the  same  as 
IDIRCT  and  the  second  index  corresponds  to  the  option  number 
for  the  options  listed  in  Table  3.  IDVAL(1,N)  indicates  a 
default  control  number,  and  IDVAL(2,N)  indicates  a  default 
value  as  described  in  Appendix  B. 

4.4  PROCESSING 


4.4.1  Processing  Flow 

The  control  routine  for  the  processing  block  is  PROCES  and  the 
flow  for  this  routine  is  shown  in  Figures  30  and  31.  PROCES 
first  calls  the  three  routines,  PROSET,  INPSET  and  OUTSET, 
which  interrogate  the  instruction  matrix  and,  as  necessary, 
set  up  input  functions  and  set  control  values.  The  routines 
also  check  for  errors  in  the  instruction  matrix.  For  example, 
a  reference  to  a  nonexistent  Info  File  group  will  be  detected 
in  routine  COMPGP,  which  is  called  by  INPSET. 

PROCES  then  must  loop  over  all  row  and  column  positions  for 
the  specified  input  data.  Normally,  the  outside  loop  is  over 
column  positions  and  the  inside  loop  is  over  the  row  positions. 
However,  for  ensemble  averaging,  this  order  is  reversed.  In 
the  non-ensemble  averaging  case,  PROCES  enters  a  DO  loop  that 
covers  the  column  positions  (radial  stations).  Inside  this 
loop,  PROCES  calls  ATTGET  to  retrieve  and/or  calculate  the 
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Figure  31.  Processing  flow  diagram  second  part) 


attached  parameters  for  the  appropriate  counter  and  time  span. 
ATTGET  is  called  once  for  each  column  position  since  the 
counter  or  start  time  within  a  counter  could  change  with 
column  number  if  the  input  is  from  a  scratch  file.  ATTGET 
will  not  recalculate  or  retrieve  the  attached  parameters  if 
the  currently  stored  attached  parameter  data  are  appropriate. 
In  addition,  ATTGET  will  not  calculate  the  attached  parameters 
if  these  parameters  are  not  required  for  processing  or  display 
in  the  current  step  and  the  output  is  not  to  a  scratch  file. 

Following  the  ATTGET  call,  PROCES  enters  a  second,  nested  DO 
loop  which  covers  the  row  positions  (chord  positions).  The 
flow  inside  this  loop  is  quite  straightforward.  GETDAT  re¬ 
trieves  the  appropriate  data  stream(s)  for  a  row/column  inter¬ 
section,  PR01  calls  the  appropriate  routine  to  process  the  da¬ 
ta,  and  TSAV1  stores  the  data  either  on  the  temporary  scratch 
file  or  on  SCF1,  SCF2 ,  or  SCF3 .  GETDAT  may  retrieve  the  data 
stream  from  the  Master  File  according  to  the  user  item  code  or 
Info  File  specification,  or  GETDAT  may  call  RTRVSC  to  retrieve 
the  data  from  SCF1,  SCF2 ,  or  SCF3 . 

PROl  addresses  most  of  the  available  processing  routines. 

PROl  does  not  address  processes  that  must  treat  data  from 
more  than  one  row/column  position  simultaneously  (e.g.,  Cn 

integration).  For  such  processes,  PROl  passes  the  input  data 
straight  through  to  output,  treating  the  data  in  the  same  way 
that  data  is  handled  for  a  DISPLAY  command.  When  the  output 
of  a  process  is  to  be  stored  on  SCFl,  SCF2 ,  or  SCF3  and  the 
processing  has  been  completed  by  PROl,  TSAVl  calls  SCADD  to 
save  the  data  for  the  current  row  and  column.  Otherwise, 

TSAVl  saves  the  data  in  one  of  three  ways.  Data  streams  that 
contain  a  single  data  point  are  saved  in  a  portion  of  the 
array  XBUFF .  Multiple  point  data  streams  are  written  to  the 
temporary  scratch  file.  However,  if  a  single  row  position  is 
being  processed  in  the  command  step,  the  output  data  is  not 
written  to  the  temporary  scratch  file.  If  the  data  is  to  be 
printed,  one  of  the  printout  routines  (XYPRNT  or  XYPRN2)  is 
called  to  print  the  data  stream  immediately. 

When  the  row  position  DO  loop  completes,  PROCES  checks  whether 
the  specified  process  is  an  integration  over  multiple  chord 
positions  (i.e.,  C  ,  C  ,  C  integrations).  If  not,  PROCES 

v  in 

jumps  ahead  to  a  call  to  TSAV2 .  If  so,  PROCES  enters  a  DO 
loop  that  covers  data  stream  sections.  Possibly  every  data 
point  for  every  row  (chord)  position  will  not  fit  into  the 
program  scratch  storage  array.  Thus,  each  data  stream  is 
broken  into  128  point  (one-half  of  a  scratch  file  record) 
sections  and  all  the  data  for  each  section  is  processed  simul¬ 
taneously.  GFTEMP  retrieves  the  data  stream  sections  from  the 


92 


"F'-SK 


temporary  scratch  file  and  PR02  selects  the  appropriate  inte¬ 
gration.  When  the  loop  has  covered  all  the  data  stream  sec¬ 
tions,  PROCES  calls  INTEMP  to  supply  the  appropriate  labels 
for  the  process  output. 

After  the  call  to  INTEMP,  PROCES  calls  TSAV2  to  store  the  re¬ 
sults  of  the  integration.  If  the  output  is  to  be  stored  on 
SCFl,  SCF2,  or  SCF3,  TSAV2  calls  SCADD  to  save  the  data  for 
the  current  column.  In  addition,  attached  parameter  data  are 
stored  using  more  calls  to  SCADD  if  those  data  have  not  al¬ 
ready  been  stored  for  the  current  counter.  If  the  output  is 
printout,  TSAV2  calls  XYPRNT  or  XYPRN2  to  print  the  output 
data  stream  immediately.  When  neither  of  the  above  output 
methods  is  selected  and  a  single-column  position  is  to  be 
processed  in  the  command  step,  the  processed  data  are  left  in 
the  scratch  storage  array,  XBUFF.  Otherwise,  the  data  are 
saved  by  one  of  two  methods.  If  the  output  is  a  single  data 
point  for  the  column  (i.e.,  one  azimuth  position),  this  point 
is  stored  in  the  XBUFF  array.  If  the  output  is  multiple  data 
points  for  the  column,  the  data  are  written  to  the  temporary 
scratch  file. 

The  same  call  to  TSAV2  may  be  executed  after  a  jump  around  the 
DO  loop  that  performs  the  integrations.  In  this  case,  re¬ 
quired  storage  or  printout  of  the  data  may  have  already  been 
performed  by  TSAVl.  If  the  output  is  to  SCFl,  SCF2 ,  or  SCF3 
and  the  column  position  represents  a  new  counter,  TSAV2  calls 
SCADD  to  save  the  attached  parameters.  If  the  output  is 
printout,  this  printout  has  already  been  performed  in  TSAVl. 
For  graphic  output,  the  output  data  are  stored  in  XBUFF  or  on 
temporary  scratch  unless  only  one  column  is  to  be  processed  in 
the  command  step. 

At  this  point,  at  address  400,  the  block  diagram  depicts  the 
flow  for  processing  that  uses  ensemble  averaging.  Ensemble 
averaging  is  available  for  a  restricted  set  of  analyses  that 
does  not  include  the  multiple  chord  position  integrations. 

The  outside  loop  for  ensemble-averaged  processing  is  over  row 
positions  and  the  inside  loop  is  over  columns.  Inside  the 
loops,  attached  parameter  data  are  retrieved  using  subroutine 
ATTGET,  input  data  are  retrieved  using  subroutine  GETDAT,  and 
the  appropriate  process  subroutine  is  selected  by  subroutine 
PROl.  Results  of  a  process  need  not  be  stored  until  the  loop 
over  the  columns  is  complete  and  subroutine  TSAVl  is  used  for 
this  purpose.  Outside  the  loop  over  row  positions,  flow  joins 
the  flow  from  non-ensemble-averaged  processing. 

When  the  flow  sequences  from  ensemble-averaged  and  non-ensem- 
ble-averaged  processing  rejoin,  PROCES  checks  whether  the 
specified  process  is  a  differentiation  over  the  column  posi¬ 
tions  (radial  stations).  If  not,  PROCES  jumps  ahead  to  call 
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DISPOS.  If  so,  PROCES  calls  SLOPST  to  retrieve  the  appropriate 
data  from  the  temporary  scratch  file  and  to  execute  SLOPE  to 
calculate  the  blade  slope  for  each  radial  position.  Then 
TSAV3  is  called  to  store  the  output  from  SLOPST. 

The  final  routine  called  by  PROCES  is  DISPOS.  DISPOS  selects 
the  proper  routine  to  perform  the  output.  If  the  output  is  to 
SCFl ,  SCF2 ,  or  SCF3  or  to  printout,  then  the  output  process 
has  been  completed  in  TSAVl,  TSAV2  or  TSAV3  and  DISPOS  simply 
returns.  Otherwise,  DISPOS  calls  the  appropriate  routine  for 
the  graphic  output  selected:  MULTPL  for  multiple  curve  X-Y 
plots,  SINGPL  for  single  curve  X-Y  plots  or  to  add  a  curve  to 
an  X-Y  plot,  CONSET  for  a  contour  plot,  and  SURSET  for  a 
surface  plot. 

When  DISPOS  returns,  PROCES  sets  the  subroutine  argument,  IC, 
to  one  and  returns.  MAIN  transfers  program  control  back  to 
USER. 

4.4.2  Scratch  Files 

Scratch  files  SCFl,  SCF2 ,  and  SCF3  are  written  by  subroutine 
SCADD  and  data  are  retrieved  from  these  files  by  subroutine 
RTRVSC .  Subroutine  INFSCR  is  used  to  obtain  information  about 
the  contents  of  a  scratch  file.  The  scratch  files  are  direct 
access  and  Figure  32  shows  the  assigned  purpose  for  the 
scratch  file  records.  The  first  scratch  file  record  contains 
labels,  information  on  the  data  stored,  row  positions,  and 
column  positions.  Along  with  each  column  position  stored, 
there  is  a  directory  for  the  associated  attached  parameter 
data  and  other  information  including  the  counter  for  the  col¬ 
umn.  The  column  position  and  attached  parameter  location 
pointers  may  continue  into  the  second  record  of  the  scratch 
file.  Figure  33  shows  the  contents  of  the  first  record  of  the 
scratch  file. 

Data  directory  records  begin  at  record  three  of  the  scratch 
file.  Each  data  directory  record  contains  several  data 
directory  blocks  and  each  block  contains  the  record  locations 
for  the  data  corresponding  to  the  top  and  bottom  double-row 
elements  for  one  row/column  pair.  Along  with  the  data  loca¬ 
tion  pointers,  some  information  regarding  each  data  stream  is 
included.  Space  is  provided  for  one  data  directory  block  for 
each  matrix  intersection  for  the  allowed  number  of  rows  and 
columns.  Figure  34  shows  a  data  directory  record.  Data 
directory  blocks  require  12  words  (48  bytes)  and  scratch  file 
records  contain  256  words  (1024  bytes)  so  that  21  blocks  are 
written  to  each  record.  The  block  address  for  a  given  row/ 
column  intersection  is  determined  by  varying  the  row  position 
first  and  then  the  column  position. 
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41 
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6  5 
68 
69 
82 

1  RPoFF* 1 


ICI'OFF*  1 
ICPOFF*2 
JCPOFF*  1 
ICPOFFM 
ICI’i>FF*f> 
1CP<>FF*6 
RT<'FF*7 
K’l'i  >FF  ♦  H 
I  CPl'FF  ♦  9 
ICI’OFF*  10 
1CP0FF*J l 
ICPOFF* 12 
ICPOFF*  1  1 
ICPOFF  *14 
ICPOFF* IS 


ICPOFF*  29 


ENTRY  CONTENTS 


OVERALL  UNITS  ( 3A4 ) 

ROW  POSITION  SCALE  VARIABLE  (4A4) 

ROW  POSITION  SCALE  VARIABLE  (SHORTENED) (2A4) 

ROW  POSITION  TOPOGRAPHIC  FEATURE  (4A4) 

COLUMN  POSITION  SCALE  VARIABLE  (4A4) 

COLUMN  POSITION  SCALE  VARIABLE  ( SHORTENED) ( 2A4 ) 

COLUMN  POSITION  TOPOGRAPHIC  FEATURE  (4A4) 

FIRST  DIMENSION  SAMPLING  INTERVAL 
FIRST  DATA  RECORD  LOCATION 

ATTACHED  PARAMETER  INDICATOR;  0=UNIVERSAL,  1=BY  COLUMN 
LTYPE  (FROM  /PRCOM/) 

LX AX  (FROM  /PRCOM/) 

SHIP  MODEL  ( A4 , A2 ) 

SHIP  NUMBER  <A4,A2) 

SHIP  GROSS  WEIGHT  (A4.A2) 

SHIP  LONGITUDINAL  CG  ( A4 , A2 ) 

NUMBER  OF  COLUMNS  PRESENT 
NUMBER  OF  ROWS  PRESENT 
TOP  DOUBLE- ROW  ELEMENT  KEYWORD 
BOTTOM  DOUBLE- ROW  ELEMENT  KEYWORD 
GENERAL  LABEL  FOR  DATA  ())A4) 

INDEPENDENT  VARIABLE:  0  =  NO  DATA,  1=T!ME,  2  =  1  RE'.‘,  )=  HARM 
TOP  DOUBLE-ROW  LABEL  INDICATOR:  1= LABEL,  2=NO  LABEL 
BOTTOM  DOUBLE -HOW  LABI.!.  INDICATOR;  1  -  LABEL,  2- No  LAB  FI 
AZIMUTH  OFFSET  FOR  INF'  FILE  GRoFP 
TOP  DOUBLE-ROW  IABEJ.  (r.A4) 

BOTTOM  DOUBLE-ROW  l.ABLI.  ( SA4  ) 

LUSCRO  UNIT  COMBINATION  INDICATOR 

l .ABEL  FOR  SECOND  DATA  INPUT  (i.o.,  FOR  CROSH-PRIKTSS)  ( 13A4 ) 
UNIT  LABEL  FOR  SECOND  DATA  INPUT  (  3A4  > 

HOW  POSITION  NUMBER  1  UNOCl’UPl  KD=  -l.E*3c> 


LAST  AVAILABLE  POSITION  VStH'CVl'lb.D-  -I.FM9 
COLUMN  POSITION  NUMBER  1 

FIRST  DIMENSION  VALUE  FOR  FIRST  DATA  I'-'I  NT 

DATA  STREAM  NUMBER  OF  ENTRIES 

RECORD  LOCATION  FOR  AZIMUTH  DATA 

NUMBER  OF  POINTS  OF  AZIMUTH  DATA 

RECORD  LOCATION  FOR  AIRSPEED  DATA 

NUMBER  OF  POINTS  OF  AIRSPEED  DATA 

RECORD  DOTATION  FOR  RPM  DATA 

NUMBER  OF  POINTS  OF  PPM  DATA 

RECORD  {/CATION  FOR  STATIC  PRESSURE  DATA 

NUMBER  OF  POINTS  OF  STATIC  PRESSURE  DATA 

RECORD  LOCATION  FOR  OUTSIDE  AIR  TEMPERATURE  DATA 

NUMBER  OF  POINTS  OF  OUTSIDE  AIR  TEMPERATURE  DATA 

COUNTER  (INTEGER) 

COLUMN  POSITION  NUMBER  2 


COLUMN  POSITION  NUMBER  3 


Figure  33. 


First  scratch  file  record. 
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START  LENGTH 

WORD  (WORDS) 


ENTRY  CONTENTS 


L*  1  l 

L*2  1 

L*  3  1 

1.+6  1 

L*  7  1 

L*8  1 

I.*9  .3 

LM2  1 


TOP  DOUBLE-ROW  ELEMENT  START  LOCATION  IN  FILE 
TOP  DOUBLE -ROW  ELEMENT  MINOR  GEOMETRIC  POSITION 
TOP  DOUBLE-ROW  SHORT  DATA  STREAM  LABEL  (3A4) 

TOP  DOUBLE- ROW  ELEMENT  NUMBER  OF  DATA  POINTS 
BOTTOM  DOUBLE-ROW  ELEMENT  START  LOCATION  IN  FILE 
BOTTOM  DOUBLE- ROW  ELEMENT  MINOR  GEOMETRIC  POSITION 
BOTTOM  DOUBLE-ROW  SHORT  DATA  STREAM  LABEL  (  3A4 ) 
BOTTOM  DOUBLE-ROW  ELEMENT  NUMBER  OF  DATA  POINTS 


Figure  34. 


Structure  of  a  data 


directory  block 
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Data  records  begin  after  the  last  reserved  data  directory 
record.  Data  streams  are  written  to  the  lowest  available  data 
records  in  the  order  received  by  SCADD. 

The  temporary  scratch  file  has  a  different  format  from  SCF1, 
SCF2 ,  or  SCF3.  This  file  will  not  hold  data  streams  corre¬ 
sponding  to  every  row  and  column  intersection  simultaneously. 
The  directory  for  this  file  is  contained  in  the  common  block 
/GENSCR/  (see  Appendix  B).  The  flow  of  PROCES  is  such  that 
this  file  should  be  required  to  hold  no  more  than  one  data 
stream  for  one  row  element  of  each  column  position  and  one 
data  stream  for  each  row  element  of  one  column  position.  Data 
streams  corresponding  to  column  positions  are  entered  first 
followed  by  data  streams  corresponding  to  row  positions.  When 
an  integration  is  performed,  the  row  position  data  streams  are 
condensed  to  one  data  stream,  which  is  written  as  a  column 
position  data  stream  on  the  scratch  file.  The  row  position 
data  streams  for  the  next  column  position  must  then  be  written 
to  a  higher  location  on  the  scratch  file  to  avoid  overwriting 
the  new  column  position  data  stream. 

4.4.3  Info  File  Retrieval 

The  information  stored  on  the  Info  File  is  retrieved  and  pro¬ 
vided  to  the  Processing  Block  by  several  different  routines. 
INFOST  is  called  in  the  Program  Initialization  Block  to  read 
and  transfer  the  information  from  the  initial  group  into  the 
common  block  /SINGIF/  (see  Appendix  B).  In  the  processing 
block,  subroutine  SINGGP  interrogates  this  common  block  to 
extract  the  appropriate  item  code  for  a  particular  key¬ 
word.  If  INFOST  encounters  unit  conversion  instructions,  it 
calls  subroutine  UNINIT  to  read  and  store  these  instructions 
in  common  block  /SINGIF/.  UNINIT  can  read  and  store  in 
program  memory  as  many  as  64  unit  conversion  lines.  In  the 
processing  block,  subroutine  CONVCK  tests  dependent  variable 
unit  labels  against  the  stored  units  and  reports  a  conver¬ 
sion  if  one  is  specified.  If  the  Info  File  includes  more 
than  64  unit  conversion  lines  and  the  lines  stored  in  program 
memory  do  not  match  the  output  dependent  variable  units,  then 
CONVCK  scans  the  additional  unit  conversion  lines  for  a  match. 
The  input  and  processing  of  the  initial  group  of  the  Info 
File  by  INFOST  and  UNINIT  constitutes  a  complete  test  for  for¬ 
mat  accuracy  of  the  initial  group. 

For  Info  File  geometric  groups,  the  processing  block  calls 
subroutine  COMPGP  to  scan  the  Info  File  and  find  the  specified 
group  name.  COMPGP  then  calls  subroutine  READGP  to  read  and 
transfer  the  group  information  into  the  common  block  /INFGRP/. 
The  processing  block  calls  subroutine  INF02  to  extract  the 
proper  item  code  and  geometric  position  from  /INFGRP/  for 
each  specified  row/column  intersection. 


All  of  the  geometric  groups  are  tested  for  format  accuracy 
the  first  time  that  the  menu  subroutine  INFRED  is  called 
(see  Section  4.6).  INFRED  calls  subroutine  READGX  to  per¬ 
form  the  format  testing  for  each  group. 

4.4.4  Replacement/Addition  of  Analysis  or  Derivation  Routines 

Most  routines  that  execute  specific  analyses  or  derivations 
on  input  data  are  accessed  by  PR01  through  an  interface 
routine.  For  example,  to  calculate  blade  displacement,  PR01 
calls  the  interface  routine  DSPSET  and  DSPSET  calls  BLDISP  to 
perform  the  actual  calculations.  The  interface  must  take  the 
input  data  as  stored  in  the  program  and  provide  these  data  to 
the  processing  subroutine  in  the  required  format.  The  main 
stream  of  input  data  is  contained  in  the  array  XBUFF.  Data 
for  the  top  double-row  element  always  begin  at  array  element 
one  and  data  for  the  bottom  double-row  element  begin  in  the 
second  half  of  XBUFF  at  location  IBFSIZ/2  +  1  where  IBFSIZ 
(in  common  block  /SIZES/)  is  the  array  size  of  XBUFF. 

For  cross  processes  (e.g.,  for  cross-correlation  analysis), 

XBUFF  may  contain  as  many  as  four  separate  time  histories. 

These  histories  correspond  to  the  top  and  bottom  double-row 
elements  of  the  first  and  second  input  functions  for  the 
cross  process.  Following  are  the  time  history  start  points 
in  XBUFF  for  this  case. 

1  -  Top  double-row,  first  input  function 

IBFSIZ/4  +1  -  Top  double-row,  second  input  function 

IBFSIZ/2  +1  -  Bottom  double-row,  first  input  function 

3*IBFSIZ/4  +1  -  Bottom  double-row,  second  input  function 

For  cross  processes  with  a  single  double-row  element  input 
(i.e.,  the  top  double-row  element),  the  first  input  function 
begins  at  location  one  in  XBUFF  and  the  second  function  is 
stored  beginning  at  location  IBFSIZ/2  +  1.  Both  input  data 
functions  must  be  the  same  length  (in  time  and  in  number  of 
datum  points)  for  cross  processes. 

The  presence  of  top  and/or  bottom  double-row  elements  is 
indicated  by  the  value  M12INP  (in  common  block  /CNTLIP/)  where 
the  allowed  values  are: 

0  =  both  double-row  elements  present 

1  =  top  double-row  element  present  only 

2  =  bottom  double-row  element  present  only 
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The  number  of  data  points  in  the  data  stream(s)  is  given  by 
the  two-element  array  IDATPR  (in  common  block  /CNTLIP/)  where 
IDATPR(l)  is  the  number  of  data  points  for  the  top  double-row 
element  and  IDATPR(2)  is  the  number  for  the  bottom  double-row 
element.  Attached  parameter  data  are  contained  in  the  common 
block  /ATTPAR/  as  explained  in  Appendix  B.  Array  XSPARE  (in 
common  block  /BSPARE/ )  is  available  for  intermediate  storage 
of  data.  In  particular,  XSPARE  will  store  intermediate  results 
for  ensemble  averaging  processes. 

After  the  process  is  completed,  the  interface  routine  must 
assure  that  the  output  data  streams  are  stored  in  XBUFF  with 
the  top  double-row  element  data  stream  starting  at  XBUFF(l) 
and  the  bottom  double-row  element  data  stream,  if  present, 
starting  at  XBUFF( IBFSIZ/2  +1).  M120UT  should  be  set  to 
indicate  the  presence  of  the  top  and/or  bottom  double-row 
elements  using  the  same  allowed  values  as  M12INP.  IDATPR 
should  be  set  to  give  the  amount  of  data  for  each  double-row 
element.  The  output  keywords,  KEYWD1  and  KEYWD2,  should  be 
set  to  indicate  the  type  of  data  present.  If  a  double-row 
element  is  not  present,  the  corresponding  keyword  should  be 
set  to  zero.  If  a  double-row  element  is  present,  there  are 
three  cases  for  output  keyword  selection.  The  keyword  for 
output  from  analysis  should  be  identical  to  the  corresponding 
input  keyword,  KEYQ1  or  KEYQ2 .  The  keyword  for  a  derivation 
output,  which  could  in  turn  become  the  input  to  a  second 
derivation,  should  be  set  by  reference  to  the  KWDAT  array  in 
subroutine  PROSET.  The  keyword  for  other  derivation  output 
could  be  set  to  any  non-zero  value. 

Then  the  labels  and  label  pointers  should  be  set.  When  the 
process  is  a  derivation,  the  dependent  variable  description, 
ITEMDS  (in  common  block  /LABELS/),  should  be  changed  as  neces¬ 
sary  along  with  the  dependent  variable  units,  IUNITS.  LTYPE 
(in  common  block  /PRCOM/)  should  be  set  to  eight.  When  the 
process  is  an  analysis,  ITEMDS  should  not  be  changed  but  LTYPE 
should  be  set  to  indicate  the  type  of  analysis  as  listed  by 
HLABLS  (in  common  block  /PLABLS/) .  In  either  case,  LXAX  (in 
common  block  /PRCOM/)  should  be  set  to  indicate  the  independ¬ 
ent  variable  as  listed  by  XLABLS  (in  common  block  /PLABLS). 

The  interface  routine  must  also  set  the  double-row  element 
labels,  LBDTOP  and  LABBOT,  and  the  indicators  for  these 
labels,  LTOPON  and  LBOTON .  All  of  these  arrays  and  vari¬ 
ables  are  in  common  block  /MLABLS/.  The  settings  that  are 
required  depend  upon  the  relationship  between  the  input  and 
output  double-rows.  These  relationships  and  the  appropri¬ 
ate  settings  are  listed  below. 

There  are  both  input  double-row  elements  and  these  are 
individually  processed  into  both  output  double-row  ele¬ 
ments  in  the  same  order.  The  arrays  and  variables  should 
be  left  unchanged. 
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•  There  are  both  input  double-row  elements  and  these 

are  processed  together  to  create  the  top  output  double¬ 
row  element  or  to  create  both  output  double-row  elements. 
Both  LTOPON  and  LBOTON  should  be  reset  to  zero. 

•  There  is  only  a  top  double-row  element,  which  is  pro¬ 
cessed  into  the  top  double-row  element  on  output.  The 
arrays  and  variables  should  be  left  unchanged. 

•  There  is  only  a  top  double-row  element,  which  is  pro¬ 
cessed  into  both  double-row  elements  on  output.  LTOPON 
and  LBDTOP  should  be  left  unchanged,  and  LBOTON  should 
be  reset  equal  to  LBDTOP. 

These  variables  and  indicators  depend  upon  original  data 
sources  and  should  never  be  reset  to  labels  contained  within 
the  interface  routine  itself. 

4. 5  COMMAND  SEQUENCING 

4.5.1  Command  Sequencing  File 

The  Command  Sequence  File  is  a  direct  access  file  with  a 
structure  as  shown  in  Figure  35.  Each  record  contains  16 
command  lines  with  64  characters  (16,  4-byte  words)  per  line. 
Each  block  requires  7  records  for  112  available  lines. 

The  first  word  of  the  directory  record  is  an  integer  that 
specifies  the  total  number  of  records  in  the  file.  Following 
the  first  word  is  a  sequence  of  two-word  entries,  correspond¬ 
ing  to  the  command  sequence  blocks,  which  gives  the  four- 
character  block  name  in  the  first  word  and  the  record  location 
in  the  second.  An  empty  block  is  indicated  by  a  blank  block 
name . 


4.5.2  Command  Sequencing  Routines 

Access  to  the  Command  Sequence  file  is  initialized  by  the 
routine  EDINIT  in  the  Program  Initialization  block.  EDINIT 
first  reads  the  directory  record  for  the  file  and  sets  certain 
control  values  based  on  the  size  of  the  file.  Then  EDINIT 
checks  the  location  pointers  in  the  directory  record  for 
reasonableness.  Finally,  EDINIT  reads  the  last  file  record  to 
check  that  the  command  sequence  file  is  properly  initialized. 

The  main  routine  for  the  Command  Sequencing  block,  EDCNTL,  is 
called  to  perform  any  of  the  functions:  EDIT/NEW,  EDIT/CHANGE, 
EDIT/DELETE,  BUILD  or  EXECUTE.  EDCNTL  first  searches  the  Com¬ 
mand  Sequence  directory  record  for  the  block  name  entered.  If 
the  name  is  found  and  the  function  is  EDIT/NEW  or  BUILD,  an 
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RECORD  9 


Figure  35.  Structure  of  command  sequence  file 


error  message  is  generated.  An  error  message  is  also  gener¬ 
ated  when  the  name  is  not  found  and  the  function  is  EDIT/ 
CHANGE,  EDIT/DELETE  or  EXECUTE. 

For  the  EDIT/NEW  or  BUILD  function,  EDCNTL  sets  the  variable 
LED  (in  common  block  /LEDIT/)  to  the  appropriate  value  (EDIT/ 
NEW  =  1,  BUILD  =  2)  and  searches  for  an  unused  command  se¬ 
quence  block.  If  a  blank  block  name  is  found,  the  name  is  set 
to  the  specified  name  and  the  command  line  storage  area  is 
preset  with  dollar  signs  for  every  line.  Upon  return  from 
EDCNTL,  the  User  Interface  block  causes  the  individual  command 
steps  to  be  saved  using  the  EDSAVE  routine. 

For  the  EXECUTE  function,  EDCNTL  sets  the  variable  LED  to 
three  and  sets  appropriate  pointers  for  retrieval  of  the  named 
block.  Upon  return  from  EDCNTL,  the  User  Interface  block 
causes  individual  command  steps  to  be  retrieved  using  the 
EDINP  routine.  Subrouting  INTERP  isolates  any  parameters 
passed  to  the  command  sequence  and  stores  these  parameters  in 
the  arrays  NLARG  and  LARG  of  common  block  /LEDIT/.  EDINP 
retrieves  these  parameters  as  they  are  referenced  by  the 
command  sequence. 

For  the  EDIT/DELETE  function,  EDCNTL  modifies  the  correspond¬ 
ing  file  directory  entry  to  show  a  blank  name. 

For  the  EDIT/CHANGE  function,  EDCNTL  reads  the  indicated  com¬ 
mand  sequence  block  into  the  array  LINE  (in  common  block 
/ CNGBLK/ ) .  Then  EDITCH  is  called  to  allow  the  user  to  modify 
the  sequence.  Upon  return  from  EDITCH,  the  argument  ISAVE  can 
have  a  value  of  one  to  indicate  that  the  modified  sequence 
should  replace  the  original  sequence  or  zero  to  indicate  that 
the  original  sequence  should  be  left  unchanged  on  the  command 
sequence  file. 

4.6  MENUS 

Menu  displays  are  controlled  by  the  routine  MENU.  This 
routine  simply  calls  the  appropriate  routine  to  create  the 
specified  menu  display.  Following  is  a  listing  of  these  sub¬ 
routines  and  the  functions  they  perform. 

MCOUNT  -  List  the  counters  on  the  Master  File  partition 
or  partitions  that  are  currently  accessed. 

MITEMS  -  List  the  item  codes  for  a  given  counter  that 

are  present  on  the  currently  accessed  partition 

INFRED  -  List  the  Info  File  initial  group  and  the  geomet 
ric  groups  by  name.  For  the  first  call  to 
INFRED,  use  subroutine  READGX  to  test  the 
format  of  each  geometric  group  for  accuracy. 


103 


LSCRAT  -  List  the  contents  of  the  scratch  files. 

EDITLS  -  List  the  Command  Sequence  blocks  present  on  the 
Command  Sequence  file. 

MPARTS  -  List  the  partitions  on  the  Master  File  and 
indicate  the  partition(s)  that  is  currently 
accessed. 

MNMASK  -  List  the  item  codes  that  are  currently  masked. 
MENSET  -  List  the  current  run  settings. 


4.7  GRAPHICS 


4.7.1  Tektronix/Calcomp  Plotting  Interface 


DATAMAP  generates  plots  on  the  Tektronix  4014  screen  that  are 
nearly  identical  to  corresponding  plots  generated  on  a  Calcomp 
or  Houston  Instruments  DP-1.  In  addition,  differences  in  the 
source  code  required  for  the  Batch  mode  load  module  and  the 
Interactive  Graphics  load  module  are  held  to  a  minimum.  These 
features  of  the  software  have  been  implemented  through  the 
generation  of  a  group  of  plotting  interface  routines  and 
through  the  use  of  a  modified  version  of  the  Calcomp  Preview 
routines.  Calcomp  Preview  is  a  set  of  routines  provided  by 
Tektronix  in  the  PLOT-10  software.  The  PLOT  and  PLOTS  routines 
supplied  by  Tektronix  have  been  replaced  by  BHT  modified 
versions  for  this  specific  application. 


The  plotting  interface  routines  replace  the  functions  of  the 
Calcomp  LINE  and  AXIS  routines.  In  addition,  the  plotting 
interface  routines  perform  five  functions  required  by  the 
Processing  Program.  First,  certain  residual  differences 
between  calls  to  the  Calcomp  routines  and  calls  to  the  Tektronix 
and  Calcomp  Preview  routines  are  handled  by  this  interface. 

For  example,  the  interface  routine  STPLT  handles  the  difference 
between  clearing  the  screen  on  the  Tektronix  and  moving  the 
plot  origin  to  start  a  new  frame  on  the  Calcomp.  Second,  the 
interface  routines  generate  the  Tektronix  screen  format  for 
plotting  and  also  handle  positioning  of  the  cursor  on  the 
left-hand  side  of  the  screen  for  printed  user  input  and 
computer  messages.  Third,  data  plot  curves  that  exceed  the 
allowed  plotting  area  are  clipped  by  these  routines.  Fourth, 
the  facility  to  generate  dashed  curves  is  provided  by  these 
routines.  Finally,  access  to  the  graphic  cursor  and  evalua¬ 
tion  of  cursor-specified  locations  in  user  coordinates  is 
provided  by  the  plotting  interface. 


The  plotting  interface  calls  only  four  Calcomp  routines:  PLOT, 
PLOTS,  NUMBER  and  SYMBOL.  LINE  and  AXIS  are  not  used.  In 
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addition,  three  Tektronix  PLOT-10  routines  are  accessed  by  the 
plotting  interface  and  four  additional  PLOT-10  routines  are 
called  by  the  modified  PLOT  and  PLOTS  routines.  The  modified 
PLOTS  calls  the  routines  INITT,  TERM  and  CHRSIZ  and  PLOT  calls 
MOVABS  and  DRWABS.  The  plotting  interface  calls  the  routines 
MOVABS,  ANMODE,  and  SCURSR.  Dummy  versions  of  these  last  three 
routines  are  provided  for  the  Batch  mode  load  module.  The 
PLOTS  subroutine  that  is  used  for  the  Interactive  Graphics 
mode  controls  the  size  and  positioning  of  the  plotting  area  on 
the  Tektronix  for  the  full-screen  plotting  mode.  This  routine 
sets  multipliers  and  offsets  as  necessary  for  the  plotting 
area  in  common  block  /CLCOMP/  and  then  PLOT  uses  these  values 
in  interpreting  the  plot  commands  on  the  Tektronix. 

To  begin  each  plot  frame,  either  STALL  or  STPLT  must  be 
called.  STALL  should  be  called  for  the  first  plot  frame  to  be 
generated  by  the  current  program  run.  STPLT  is  called  other¬ 
wise.  Following  the  call  to  STALL  or  STPLT,  AXES  or  AREA  must 
be  called  to  define  the  allowed  plotting  area.  AXES  will 
generate  a  box  around  the  area,  annotate  X  and  Y  AXES  and, 
depending  on  the  I GRID  and  NOTICS  settings  (in  common  block 
/DRW/),  draw  tic  marks  inside  the  box  and/or  a  grid  inside  the 
box.  AREA  will  simply  define  the  allowed  plotting  area  with¬ 
out  generating  any  axes. 

LYNX  is  called  to  draw  data  curves.  LYNX  will  generate  con¬ 
tinuous  curves  or  dashed  curves  and/or  curves  with  characters 
centered  on  every  N'th  point.  LYNX  cannot  draw  lines  outside 
the  allowed  plotting  area.  DRAWN  is  called  to  draw  a  line 
outside  the  allowed  plotting  area  according  to  the  dash  code 
used  by  the  last  call  to  LYNX  (see  Appendix  B). 

INSET  relocates  the  cursor  on  the  left-hand  side  of  the 
screen  for  printed  input  or  output.  The  cursor  is  located  on 
the  number  of  raster  points  down  from  the  top  specified  by 
LNCNT. 

PLOC  activates  the  graphic  cursor  and  evaluates  the  user 
specified  location  in  units  of  the  current  plot  frame.  The 
resultant  values  and  the  user  typed  character  are  returned  to 
the  calling  routine  for  processing  or  output.  One  position  is 
evaluated  for  each  call  to  PLOC. 

ENPLT  ends  all  plotting  by  the  Processing  Program. 

4.7.2  X-Y  Plots 

Simple,  multiple  curve,  double  scale,  and  comparison  X-Y  plots 
are  all  generated  through  the  routine  XYPLOT.  XYPLOT  calls 
STPLT  or  STALL  as  necessary  to  initialize  the  plot  frame.  X 
and  Y  scaling  values  are  determined  using  SCALEV  and  the  axes 
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are  drawn  using  AXES.  For  double-scale  X-Y  plots,  subroutine 
DAXES  is  called  instead,  and  this  routine  calls  AXES  twice. 
This  portion  of  the  code  is  skipped  if  a  curve  is  being  added 
to  an  existing  plot  frame. 

LYNX  is  then  called  to  draw  the  curve  on  the  plot.  For 
double-scale  plots,  DLYNX  is  called,  which  in  turn  call  LYNX. 
Following  the  call  to  LYNX,  labels  are  drawn  for  the  plot  if 
the  curve  is  the  first  for  the  current  frame.  For  a  multiple 
curve  plot,  a  sample  of  the  type  of  dashed  line  used  by  LYNX 
is  drawn  using  the  routine  DRAWN.  This  line  is  then  annotated 
appropriately . 

PLOC  is  then  called  if  graphics  cursor  activation  was  speci¬ 
fied  by  the  user.  INSET  is  called  and  the  returned  arguments 
from  PLOC  are  printed.  If  the  returned  character  from  PLOC  is 
a  ' C ' ,  then  the  program  loops  back  to  call  PLOC  again.  Other¬ 
wise  the  program  proceeds  to  call  INSET  and  return. 

4.7.3  Contour  Plots 

For  contour  plot  generation,  subroutine  DISPOS  calls  subrou¬ 
tine  CONSET.  Based  on  the  two  independent  variables  for  the 
output  function,  CONSET  calls  NOFRST  or  YSFRST .  NOFRST  is 
selected  when  the  first  or  time-related  dimension  is  not  one 
of  the  two  independent  variables,  while  YSFRST  is  called  when 
the  first  dimension  is  one  of  the  two  independent  variables. 
Both  of  these  routines  retrieve  the  output  data  and  interpo¬ 
late  the  input  data  matrix  to  obtain  a  new  data  matrix  with 
the  prescribed  number  of  rows  and  columns  for  the  plot  format 
selected. 

CONSET  then  calls  either  CONCYL  or  CONREC  for  a  cylindrical  or 
rectangular  format,  respectively.  These  two  routines  follow 
the  same  general  flow.  After  STPLT  or  STALL,  and  AREA  are 
called,  a  box  or  circle  is  drawn  around  the  allowed  plotting 
area.  Then  the  interval  between  contour  levels  is  set  using 
SCALEV  and/or  user  supplied  values . 

When  the  vertical  or  Z  scale  is  set,  CONTUR  is  called  to  draw 
the  contour  plot.  CONTUR  finds  the  sequences  of  X-Y  positions 
that  form  the  individual  contours.  However,  CONNEC  is  called 
by  CONTUR  to  actually  draw  the  contours  using  LYNX.  In  addi¬ 
tion,  CONNEC  uses  DRAWN  to  draw  line  samples  with  level  anno¬ 
tation  in  the  label  area. 

Upon  return  from  CONTOUR,  additional  labels  are  drawn  under 
the  plot  and  then  INSET  is  called  to  reposition  the  cursor  for 
printed  I/O  for  the  next  command  step. 


4.7.4  Surface  Plots 


Surface  plot  generation  follows  the  same  general  flow  as  con¬ 
tour  plot  generation.  Subroutine  DISPOS  calls  subroutine  SUR- 
SET.  Based  on  the  same  criterion  used  by  CONSET,  SURSET  calls 
NOFRST  or  YSFRST.  Upon  return  from  the  selected  routine,  SUR¬ 
SET  calls  SURCYL  or  SURREC  to  draw  a  surface  plot  using  re¬ 
spectively  a  cylindrical  or  rectangular  format. 

As  with  CONCYL  and  CONREC,  SURCYL  and  SURREC  follow  the  same 
general  flow  pattern.  Either  STPLT  or  STALL  and  then  AREA  are 
called  and  a  box  is  drawn  around  the  allowed  plotting  area. 
PLSURD  is  then  called  to  draw  the  surface.  GTFORM  is  used  by 
PLSURD  to  generate  the  perspective  transformation  from  three- 
dimensional  point  locations  to  point  locations  on  a  viewing 
plane . 

Upon  return  from  PLSURD,  SRRCRF  is  called  to  draw  annotation 
around  the  allow-  ]  plotting  area. 

Upon  return  from  SRRCRF,  labels  are  drawn  below  the  plotting 
area,  INSET  is  called,  and  control  is  transferred  from  SURCYL 
or  SURREC  to  SURSET.  Next,  control  is  returned  to  DISPOS. 

4.8  DATA  RETRIEVAL 

Measured  data  are  retrieved  from  the  Master  File  with  the  rou¬ 
tines  DATAIN  and  FINDIT.  FINDIT  locates  the  appropriate  data 
in  the  Master  File.  Two  separate  FINDIT  calls  are  required  to 
locate  an  item  code/counter  pair.  The  first  call  locates  the 
specified  counter  in  the  counter  directory  and  transfers  part 
or  all  of  the  corresponding  item  code  directory  into  the  ITEMD 
array  (in  common  block  /DATSET/).  The  second  call  locates  the 
specified  item  code  in  the  item  code  directory  and  transfers 
the  information  record  for  the  data  stream  into  the  ITMINF  ar¬ 
ray  (in  common  block  /DATSET/).  Both  of  these  calls  to  FINDIT 
are  performed  by  DATAIN  so  that  a  single  call  to  DATAIN  is  re¬ 
quired  to  input  data  for  a  specified  item  code/counter  pair. 
During  the  second  execution  of  FINDIT,  the  requested  item  code 
is  compared  with  the  list  of  masked  item  codes.  If  this  item 
code  matches  a  masked  item  code  entry,  FINDIT  returns  with  an 
indication  that  the  item  code  was  not  found.  Otherwise,  based 
on  the  requested  time  offset  and  the  time  history  length  spe¬ 
cified,  DATAIN  calculates  the  appropriate  first  record  and 
reads  the  requested  data.  Calibration  is  performed  if  the 
data  are  stored  on  the  Master  File  in  integer  format. 

Part  or  all  of  the  counter  directory  and  the  most  recently 
used  item  code  directory  are  kept  in  the  arrays  ICTRD  and 
ITEMD  so  as  to  minimize  reads  of  directory  records.  Thus,  if 
there  are  fewer  than  128  counters,  the  counter  directory  need 
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not  be  read  more  than  once.  Similarly,  the  item  code  direc¬ 
tory  need  not  be  read  more  than  once  if  that  directory  has 
fewer  than  128  entries  and  if  the  counter  does  not  change.  In 
addition,  the  information  record  need  not  be  re-read  until  a 
different  counter/item  code  pair  is  required. 

FINDIT  checks  the  required  data  against  the  data  present  to 
prevent  unnecessary  reads  of  directory  records  and  information 
records . 


5.  UTILITY  ROUTINES 


Certain  subroutines  are  used  in  more  than  one  of  the  DATAMAP 
programs.  These  routines  have  been  written  to  be  general  in 
nature . 

5.1  DIRECT  ACCESS 

All  direct  access  READ,  WRITE  and  FIND  operations  are  pro¬ 
cessed  by  the  routines  RMS,  WMS  and  FMS,  respectively.  For 
example,  instead  of  a  direct  access  read  statement  using  the 
IBM  format, 

READ (NR I ' IXXX) I ARRAY 

the  File  Creation  Program  and  Processing  Program  make  the 
call, 

CALL  RMS(1, I ARRAY, I SIZE, IXXX, I ERR)  . 

Of  course,  the  normal  IBM  format,  or  some  equivalent  format 
for  a  different  computer  system,  is  used  in  the  RMS,  WMS  and 
FMS  routines. 

The  routines  use  the  common  block  /MASS/  to  retain  device  num 
bers,  offsets  and  sizes.  Calls  to  RMS,  WMS  and  FMS  specify  a 
pseudo-device  number  which  is  an  index  for  the  arrays  in 
/MASS/.  In  the  example,  the  integer  *  1 '  is  the  pseudo-device 
number.  The  array  MDEV  contains  the  actual  I/O  file  numbers 
(data  set  reference  numbers)  for  the  direct  access  files.  Th 
array  MOFF  contains  offsets  to  be  used  in  addressing  records 
in  the  direct  access  file.  Thus,  an  MOFF  value  provides 
relative  addressing  to  a  group  of  contiguous  records  that 
form  a  subset  of  all  the  records  present  in  the  direct  access 
file.  These  subsets  are  called  pseudo-devices.  Thus,  if 

MDEV  (2)  =  8 
MOFF  (2)  =  5248 

then  pseudo-device  '2'  is  direct  access  file  number  eight  and 
the  first  record  of  pseudo-device  two  is  actually  record  5249 
on  direct  access  file  number  eight. 

The  array  MLEN  gives  the  number  of  records  assigned  to  each 
pseudo-device.  The  array  MTOT  gives  the  total  number  of  re¬ 
cords  and  MSIZ  gives  the  record  size  in  four-byte  words  for 
the  direct  access  file  that  contains  the  corresponding  pseu¬ 
do-device  . 


The  routines  RMS,  WMS  and  FMS  check  that  the  requested  rela¬ 
tive  record  number  is  within  the  assigned  pseudo-device  area 
and  that  the  resultant  absolute  record  number  does  not  exceed 
the  boundaries  of  the  corresponding  direct  access  file.  These 
routines  also  check  that  the  requested  record  size  is  less 
than  or  equal  to  the  record  size  for  the  direct  access  file. 

Initialization  of  the  direct  access  files  and  setup  of  the 
/MASS/  common  block  are  performed  in  routines  other  than  RMS, 
WMS  and  FMS.  The  programs  and  routines  that  perform  initial¬ 
ization  on  the  direct  access  files  are  listed  in  Section  6.1. 
Setup  of  the  /MASS/  common  block  is  performed  for  the  File 
Creation  Program  in  routines  SETUP1  and  SETUP2 .  For  the 
Processing  Program,  /MASS/  is  set  up  in  the  routines  INITSC, 
DASTRT  and  EDINIT. 

IBM  OS  and  MVS  system  direct  access  files  can  be  initialized 
in  one  of  two  ways:  a  write  can  be  specified  as  the  first 
file  operation  of  the  program  run  or  every  available  record  in 
the  file  can  be  written  on  using  a  sequential  alias  for  the 
direct  access  file  number.  The  former  method  is  not  used 
because  the  File  Creation  Program  and  Processing  Program 
DEFINE  FILE  statements  specify  more  records  for  a  direct 
access  file  than  would  ever  likely  be  physically  provided  for 
the  file.  Thus,  the  normal  system  initialization  of  the  file 
would  always  result  in  an  error. 

The  pseudo-device  numbers  in  the  File  Creation  Program  are 

1  =  Initially  is  all  of  Master  File  and  then  during  the 

data  transfer  is  the  partition  of  the  Master  File. 

2  =  Scratch  file  temporarily  containing  the  partition 

directory. 

The  pseudo-device  numbers  in  the  Processing  Program  are 

1  =  Initially  is  set  to  read  all  of  the  Master  File  and 

after  the  Startup  Block  is  executed,  is  set  to  read 
the  partition  of  the  Master  File  that  is  specified  for 
access  using  slot  one. 

2  =  Directory  for  partition  accessed  through  slot  one 

3  =  SCF1 

4  =  SCF2 

5  =  Temporary  Scratch 

6  =  Command  Sequence  File 

7  =  SCF3 

8  =  Partition  accessed  through  slot  two 

9  =  Directory  for  partition  accessed  through  slot  two. 

10  =  All  of  Master  File 


5.2  STRING  HANDLING 


Several  routines  are  used  by  the  system  to  process  strings. 
Subroutine  PACK  transfers  the  leftmost  character  (i.e.,  the 
first  character)  from  each  of  four  sequential  words  to  the 
leftmost  four  bytes  of  a  single  word.  The  sequence  of  the 
characters  is  maintained.  Thus  the  sequence  of  string  words 
'AWWW',  1 BXXX ' ,  ' CYYY 1 ,  ' DZZZ '  becomes  ' ABCD ' . 

Subroutine  SHFSTR  transfers  a  contiguous  sub-string  from  a 
string  containing  four  characters  per  four-byte  word  to  a  set 
of  contiguous  character  locations  in  a  second  string  contain¬ 
ing  four  characters  per  four-byte  word.  Both  SHFSTR  and  PACK 
use  ' L0GICAL*1 1  variables,  which  is  IBM-dependent  code  (see 
Section  6.2). 

NTOSTR  is  a  routine  that  converts  floating  numeric  values  to 
strings.  NTOSTR  is  used  by  INTERP  to  convert  numeric  command 
entries  to  string  form  for  storage  of  command  lines. 

READF  performs  scanning  and  some  interpretation  of  free-field 
user  input  lines.  The  calling  routine  must  read  the  command 
line  into  the  array  ICHAR  (in  common  block  /KARD/)  storing  one 
character  per  four-byte  word.  READF  evaluates  numeric  entries 
as  floating  numbers,  calculates  the  starting  character  posi¬ 
tion  and  number  of  characters  for  string  entries,  and  notes 
the  position  in  the  entry  sequence  of  null  entries.  This 
information  is  returned  in  the  common  block  /KARD/. 

Subroutine  MATCHR  is  frequently  called  following  a  call  to 
READF  to  find  a  match  between  a  character  string  and  one  ele¬ 
ment  of  an  array  of  four-character  strings.  The  first  charac¬ 
ter  of  the  test  string  is  compared  with  each  of  the  first 
characters  from  the  keywords  stored  in  the  array  IAA  (in 
common  block  /WLIST/).  Subsequently,  the  following  character 
from  the  test  string  is  compared  with  the  corresponding  char¬ 
acters  for  all  the  keywords  that  matched  for  the  previous 
character.  If,  after  every  character  of  the  input  string  has 
been  processed,  there  is  more  than  one  keyword  that  compares 
character  for  character,  the  entry  is  considered  ambiguous  and 
the  return  argument  IOUT  is  given  the  value  zero. 

If  no  keywords  match  the  test  string,  then  IOUT  is  set  to 
minus  one.  When  a  single  keyword  matches  the  test  string,  the 
corresponding  index  for  the  keyword  is  returned. 

A  maximum  of  four  characters  from  the  test  string  are  examined 
by  MATCHR.  Additional  characters  are  ignored.  Fever  than 
four  characters  may  be  provided  and  then  only  the  characters 
supplied  are  processed.  Thus,  fewer  than  four  characters  may 
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be  an  acceptable  entry  to  match  a  keyword,  even  though  the 
matched  keyword  contains  more  characters  than  the  test  string 
supplied.  If  an  unambiguous  match  is  found  for  the  test 
string  before  all  the  test  characters  have  been  processed,  the 
remainder  of  the  available  test  characters  (up  to  the  fourth 
character)  are  still  compared  and  a  mismatch  will  result  in  a 
return  with  IOUT=  -1. 

5.3  SORTING 

Several  routines  are  used  by  the  File  Creation  Program  and  the 
Processing  Program  to  sort  arrays  in  ascending  order  of  float¬ 
ing  or  integer  value.  These  routines  are  SORTM,  SORTO,  S0RT1, 
S0RT2 ,  S0RT3 ,  and  SORTMF .  These  routines  all  use  the  binary 
sort  algorithm  and  retain  the  same  flow  pattern.  The  routines 
differ  in  the  number  of  associated  arrays  carried  along  with 
the  array  to  be  sorted  and  whether  the  array  to  be  sorted 
contains  floating  or  integer  values. 

SORTMF  sorts  an  index  array  corresponding  to  the  array  to  be 
sorted.  Then  the  routine  SORTID,  which  calls  SORTMF,  carrys 
through  the  sort  using  the  location  pointers  in  the  index  ar¬ 
ray.  The  sort  is  carried  through  on  a  matrix  of  array  values 
with  the  column  elements  corresponding  to  the  index  pointers. 

5.4  SUBROUTINES  TO  ENHANCE  TRANSPORTABILITY 

Certain  subroutines  are  used  to  concentrate  non-standard  code 
in  a  single  location.  These  routines  are  described  in  Section 
6  and  are  only  listed  here  for  completeness.  The  subroutines 
are  QUIKIO,  READLN,  DATE QQ,  INIDAF,  PARMGT,  and  NEXTAP.  The 
routines  WMS,  RMS,  FMS ,  SHFSTR,  and  PACK  also  perform  this 
function  but  they  have  additional  reasons  for  use. 
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6.  TRANSPORTABILITY  CONSIDERATIONS 


DATAMAP  has  been  written  so  as  to  make  conversion  of  the 
software  to  another  computer  system  as  simple  as  possible. 
However,  certain  installation  and  system  dependent  code  has 
been  required  in  the  programs  to  achieve  the  requirements  for 
the  system.  Such  code  is  always  flagged  in  the  source  listings 
and  a  corresponding  process  that  is  valid  for  the  local  in¬ 
stallation  can  be  inserted  in  the  place  of  the  invalid  code. 

The  various  types  of  nontransportable  codes  will  be  discussed 
here. 

6.1  THE  DATAMAP  LIBRARY 

As  mentioned  in  Section  5.4,  six  subroutines  are  used  to  con¬ 
centrate  certain  non-standard  code  in  a  single  location. 

These  six  routines  are  contained  in  the  "DATAMAP  Library"  or 
"DATMAPLB."  DATMAPLB  should  be  made  available  during  the 
link-edit  process  for  each  of  the  DATAMAP  programs.  The  six 
subroutines,  DATEQQ ,  INIDAF,  NEXTAP,  PARMGT,  QUIKIO,  and 
READLN  are  all  described  in  subsequent  parts  of  Section  6. 

6.2  DIRECT  ACCESS 

DATAMAP  uses  the  IBM  direct  access  capability  extensively. 

All  of  the  READ,  WRITE  and  FIND  calls  are  restricted  to  the 
routines  RMS,  WMS  and  FMS.  Thus,  conversion  of  the  actual 
reads  and  writes  for  direct  access  files  should  be  reasonably 
simple  if  there  is  a  corresponding  process  at  the  new  instal¬ 
lation.  In  addition,  the  file  definition  statements  (DEFINE 
FILE)  are  always  grouped  near  the  beginning  of  the  main  routine 
for  each  program.  The  files  are  always  set  up  with  256  four- 
byte  words  per  record,  the  records  being  unformatted. 

Four  of  the  DATAMAP  programs  perform  the  initialization  pro¬ 
cess  of  writing  dummy  data  on  each  record  of  a  direct  access 
file.  The  initialization  functions  of  the  Master  File  Ini¬ 
tialization  Program  and  the  Command  Sequence  File  Initializa¬ 
tion  Program  are  clear  from  their  titles.  The  File  Creation 
Program  initializes  a  direct  access  scratch  file  in  the  sub¬ 
routine  SETUP1.  The  Processing  Program  initializes  scratch 
files  in  the  subroutine  INITSC.  Subroutine  INIDAF  is  called 
to  perform  each  of  the  initializations.  INIDAF  writes  on  each 
direct  access  record  in  the  sequential  mode  using  subroutine 
FASTIO  (see  Section  6.4).  In  many  cases,  conversion  to  another 
initialization  method  could  be  accomplished  by  modification  of 
INIDAF  without  change  to  the  specific  routines  that  call 
INIDAF. 
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6.3  CODING  VARIATIONS 


DATAMAP  uses  certain  nonstandard  IBM  FORTRAN  features. 

LOGICAL  *1  variables  are  used  in  the  routines  SHFSTR  and  PACK 
to  address  individual  bytes  of  four-byte  words  for  character 
manipulation. 

INTEGER  *2  variables  are  used  extensively  in  the  data  handling 
portions  of  the  File  Creation  Program  to  process  the  standard 
BHT-Ground  Data  Center  (GDC)  tape  format.  The  routines  that 
use  INTEGER  *2  variables  are  READD,  FITEM,  FCNTR,  TRANSC , 
CALUPD ,  SAVD  and  SAVF.  All  of  these  routines  would  probably 
need  to  be  replaced  in  the  STRNGF  routine  to  handle  data  input 
that  is  not  in  DTF  or  BHT-GDC  format. 

INTEGER  *2  variables  are  also  used  in  the  Processing  Program 
in  the  data  retrieval  routine  DATAIN. 

The  following  form  of  input  statement  is  used  in  DATAMAP  to 
detect  end  files  or  errors  on  input. 

READ ( NREA , 9000 , ERR=500 , END=500 ) list 

All  DATAMAP  programs  restrict  use  of  this  form  to  the  sub¬ 
routine  READLN  so  that  conversion  of  this  statement  type  could 
be  performed  on  this  subroutine  alone.  READLN  is  one  of  the 
subroutines  on  DATMAPLB . 

6.4  COMPUTER  WORD  PROBLEMS 

Certain  problems  could  be  introduced  in  the  conversion  of 
DATAMAP  to  a  new  computer  system  from  changes  in  size  and 
format  of  the  computer  word. 

6.4.1  String  Storage  and  Processing 

Strings  are  stored  either  with  one  left- justified  character 
per  word  or  with  four  left- justified  characters  per  word. 
Strings  are  read  or  printed  in  A1  or  A4  format.  Thus,  conver¬ 
sion  for  string  processing  should  not  create  much  of  a  problem 
when  at  least  four  characters  can  be  stored  per  word  (instal¬ 
lation  on  mini-computers  with  16-bit  (2-byte)  integers  would 
present  significant  problems).  However,  for  systems  where 
more  than  four  characters  are  stored  in  a  word,  the  calls  to 
the  Calcomp  SYMBOL  routine  present  a  problem  since  SYMBOL 
expects  a  continuous  sequence  of  characters.  SYMBOL  is  called 
by  routines  XYPLOT,  XYCMLB,  CONREC,  CONCYL,  SURREC,  SURCYL, 
ANNOT,  and  MCHAR . 
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The  READF  routine  has  two  integer  values  set  in  a  data  state¬ 
ment,  IBITS  and  NBYT .  IBITS  must  be  set  to  the  number  of  bits 
in  a  character  byte  and  NBYT  must  be  set  to  the  number  of  cha¬ 
racter  bytes  that  can  be  stored  in  a  word. 

Special  problems  can  arise  in  the  interpretation  of  a  string 
by  arithmetic  means.  All  of  the  character  encoding  methods 
that  have  been  considered  (BCDIC,  EBCDIC,  ASCII,  and  CDC 
internal  display  code)  encode  the  digits  0-9  in  a  continuous 
sequence  and  in  order  from  lowest  unsigned  arithmetic  inter¬ 
pretation  of  a  byte  to  highest  (this  is  not  true  for  the 
seven-track  tape  encoding  of  BCDIC).  READF  uses  this  assump¬ 
tion  in  the  evaluation  of  numbers.  READF  and  certain  subrou¬ 
tines  in  the  SYMBOL/NUMBER  replacement  package  (see  Section 
6.6)  also  assume  that  the  first  character  in  a  word  is  in  the 
position  of  the  most  significant  bits  arithmetically  when  the 
word  is  evaluated  as  an  integer.  Just  the  reverse  situation 
is  true  on  the  Digital  Equipment  Corporation  (DEC)  VAX  11/780, 
where  the  first  character  in  a  word  occupies  the  least  signi¬ 
ficant  bits  of  the  word.  Alternate  code  is  provided  as  com¬ 
mentary  in  the  READF  subroutine  and  in  the  SYMBOL/NUMBER 
replacement  subroutines  to  correct  this  situation. 

6.4.2  BHT-GDC  Format  Tape  Processing 

One  of  the  options  for  the  File  Creation  Program  (FCP)  is  to 
read  BHT-GDC  format  data  input.  This  format  includes  data 
coded  in  IBM  internal  floating  word  format,  IBM  internal 
integer  word  format,  and  EBCDIC  characters  (see  Reference  4). 
This  mixture  of  data  encoding  methods  is  not  a  problem  for 
DATAMAP  versions  installed  on  an  IBM  computer.  However,  for 
other  computer  systems,  each  BHT-GDC  format  input  record  may 
require  conversion  after  input  and  before  processing.  The 
most  logical  point  for  insertion  of  such  code  is  in  the  sub¬ 
routine  READD  of  the  FCP.  This  conversion  has  been  accom¬ 
plished  for  the  DEC  VAX  11/780. 

6.5  SPECIAL  ROUTINES 

Certain  installation-provided  routines  are  used  in  DATAMAP. 

Most  installations  have  corresponding  routines  or,  alterna¬ 
tively,  the  routine  functions  are  not  critical  to  program 
operation.  The  function  of  each  of  these  routines  is  described 
here . 

DATAMAP  uses  subroutine  FASTIO  to  avoid  FORTRAN  conversion 
routines  for  input  and  output  using  fixed  length  records.  A 
second  reason  for  using  FASTIO  is  to  read  blocks  that  have  no 
byte  count  appended.  The  first  argument  for  FASTIO  is  one  of 
the  character  strings  'READ'  or  'WRITE'  to  indicate  a  sequential 
input  or  output  operation,  respectively.  The  second  argument 
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is  the  I/O  file  number  (data  set  reference  number)  for  the  op¬ 
eration.  The  third  argument  is  the  array  which  contains  the 
data  for  output  or  which  will  receive  the  data  for  input.  The 
fourth  argument  is  the  number  of  bytes  to  be  transferred.  The 
fifth  and  sixth  arguments  use  the  IBM  system  dependent  coding 
technique.  The  arguments  are  FORTRAN  statement  labels  for  a 
jump  on  return  from  the  subroutine.  The  character  is 
appended  to  the  front  of  the  label  in  the  subroutine  argument. 
The  fifth  and  sixth  arguments  give  the  return  locations  for  an 
end-of-file  condition  or  an  error  condition,  respectively. 

Subroutine  FASTIO  could  be  replaced,  if  necessary,  by  'A'  for¬ 
mat  READ  and  WRITE  statements  (i.e.,  (3 (255A8 ) , 45A8 )  for  GDC 
tapes)  or  an  appropriate  system  routine  (e.g.,  BUFFER  IN  for 
Control  Data  machines).  The  detection  of  end  file  and  error 
conditions  provided  by  FASTIO  is  critical  only  in  subroutine 
READD  of  the  File  Creation  Program.  Subroutine  READD  is  used 
only  for  standard  BHT-GDC  tape  input. 

DATAMAP  restricts  all  FASTIO  calls  to  the  subroutines  QUIKIO 
and  INIDAF.  Both  of  these  subroutines  are  in  DATMAPLB . 

DATAMAP  calls  the  local  BHT  assembly  language  subroutine  DATE 
to  return  the  current  Gregorian  date.  DATE  returns  the  date 
in  the  format  "mm/dd/yy."  All  calls  to  DATE  are  made  through 
subroutine  DATEQQ ,  which  is  on  DATMAPLB.  DATEQQ  must  return 
the  date  in  an  eight-character  format  but  strict  adherence  to 
the  format,  "mm/dd/yy"  is  not  necessary.  For  example,  the 
DATE  subroutine  on  the  NASA  Ames  Research  Center  VAX  11/780 
returns  the  date  in  a  nine-character  format  (e.g.,  "28-MAY- 
80").  For  the  NASA  installation,  DATEQQ  was  rewritten  to 
convert  the  above  format  and  return  an  eight-character  date 
(e.g.,  "28MAY'80 ) . 

Subroutine  TIMOD  returns  the  current  time  of  day  into  twelve 
sequential  character  locations  of  the  argument  array.  The 
format  for  the  returned  time  is  a  character  string  'hh.mm.ss. 
fr'.  The  right-most  character  is  set  to  a  blank.  DATAMAP 
uses  the  first  eight  characters  that  are  returned  and  ignores 
the  last  four.  Several  of  the  DATAMAP  programs  call  TIMOD. 

For  conversion  to  another  computer  system,  a  replacement  TIMOD 
subroutine  should  be  written  and  inserted  on  DATMAPLB.  This 
routine  should  call  local  routines  to  obtain  the  time  of  day 
and  make  format  conversions  as  necessary.  Alternatively,  a 
dummy  TIMOD  subroutine  can  be  written  that  always  returns  a 
blank  array. 

DATAMAP  calls  subroutines  TIMEX  and  SETIME  to  monitor  exe¬ 
cution  time  in  the  Processing  Program.  For  the  BHT  and  USARTL 
(AVRADCOM,  St.  Louis,  Missouri)  installations,  these  subrou¬ 
tines  are  entries  to  the  DATE  subroutine.  SETIME  is  called  to 
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initialize  the  CPU  timing  process.  The  argument  to  SETIME  is 
a  REAL  value  specifying  a  time  limit  in  minutes.  This  number 
must  be  greater  than  zero  and  less  than  1440.  This  argument 
is  not  critical  to  the  DATAMAP  application,  except  that  a 
reasonably  large  number  must  be  defined.  TIMEX  is  called  to 
obtain  the  CPU  time  consumed.  All  arguments  are  returned  as 
REAL  values .  The  first  argument  is  the  CPU  time  used  since 
the  last  call  to  SETIME.  The  second  argument  is  the  CPU  time 
used  since  the  last  call  to  TIMEX.  The  third  argument  is  not 
used  by  DATAMAP.  This  argument  gives  the  time  not  yet  con¬ 
sumed  from  the  interval  specified  in  the  call  to  SETIME. 

SETIME  is  called  in  the  Processing  Program  in  subroutine 
STRTUP.  TIMEX  is  called  in  the  Processing  Program  in  sub¬ 
routines  USER  and  INISTP. 

SETIME  and  TIMEX  can  be  replaced  with  subroutines  that  call 
local  CPU  timing  subroutines.  Alternatively,  these  routines 
could  be  replaced  with  dummy  subroutines.  A  dummy  SETIME 
should  have  one  argument  and  perform  no  action  and  a  dummy 
TIMEX  should  have  three  arguments  that  are  each  set  to  zero  on 
return.  The  replacement  subroutines  should  be  inserted  on 
DATMAPLB . 

Subroutine  PLTIME  is  a  special  routine  at  BHT  that  estimates 
the  required  plotting  time  for  a  Calcomp  plot  and  outputs  this 
time  to  the  computer  operator.  Subroutine  PLTIME  is  called  in 
subroutine  ENPLT  for  Calcomp  plots  only.  For  Tektronix  plots, 
the  PLOTS  subroutine  has  a  dummy  entry  for  PLTIME.  A  do- 
nothing  subroutine  with  no  arguments  may  be  substituted  for 
PLTIME. 

Subroutine  CORE  is  a  BHT-written  routine  for  operation  on  IBM 
computers  that  allows  FORTRAN  format  conversion  of  character 
strings  stored  in  mam  memory.  Most  non-IBM  installations 
have  an  equivalent  FORTRAN  capability  that  is  invoked  with  the 
DECODE  instruction.  CORE  is  called  with  two  arguments,  the 
input  character  array  to  be  converted  and  the  number  of  char¬ 
acters  in  the  array.  The  conversion  is  performed  by  a  subse¬ 
quent  READ  statement  that  specifies  a  dummy  file  reference 
number  and  the  required  format  for  conversion.  The  use  of 
CORE  is  limited  to  subroutine  CONVERT  in  the  File  Creation  Pro¬ 
gram.  Alternate  code  is  provided  in  CONVRT  to  invoke  DECODE, 
but  this  code  is  commented  and  thus  inactive. 

6.6  GRAPHICS 

The  graphic  software  was  discussed  extensively  in  Section  4.7. 
However,  the  graphics  features  related  specifically  to  trans¬ 
portability  of  the  code  are  discussed  here.  For  non-inter¬ 
active,  off-line  graphic  output,  the  software  assumes  that  the 
Calcomp  routines  PLOTS,  and  PLOT  are  provided  by  some  system 
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library.  These  routines  must  be  either  the  actual  Calcomp 
routines  or  simulations  of  these  routines  for  plotting  on 
another  device.  The  plotting  interface  assumes  a  plotting 
area  for  a  plot  frame  of  8.5  inches  horizontal  and  11  inches 
vertical.  Approximately  9.7  inches  vertical  and  7.7  inches 
horizontal  are  actually  used  for  a  frame.  The  plotting  inter¬ 
face  moves  to  a  new  plot  frame  position  by  incrementing  the 
basic  pen  origin  horizontally  to  the  right  at  least  8.5  inches. 
The  user  may  specify  a  larger  increment  by  changing  the  default 
value  for  the  variable  PLTWID  (in  common  block  /MDEP/)  or  by 
specifying  a  larger  value  for  PLTWID  in  the  Initialization 
Phase  of  a  Processing  Program  run. 

Plotting  on  a  graphics  terminal  assumes  that  a  Tektronix  4014 
and  the  PLOT-10  software  package  are  available.  Substitute 
PLOT  and  PLOTS  subroutines  are  provided  for  the  interactive 
and  interactive  graphics  modes  of  operation.  These  routines 
call  Tektronix  PLOT-10  subroutines  to  actually  draw  the  indi¬ 
vidual  vectors  that  compose  a  plot.  In  addition,  the  substi¬ 
tute  PLOT  and  PLOTS  subroutines  can  write  a  copy  of  each  of 
the  PLOT  command  arguments  to  file  22  for  the  COPY  capability 
(see  the  SET/COPY  and  UTIL/COPY  commands  in  Section  5  of 
Volume  I ) . 

A  package  of  subroutines  that  emulates  the  Calcomp  SYMBOL  and 
NUMBER  routines  is  provided  with  DATAMAP.  This  package  is 
written  entirely  in  FORTRAN,  but  the  code  does  use  the  LOGICAL 
*1  data  type  extensively  so  that  it  may  not  be  easily  trans¬ 
portable.  As  mentioned  in  Paragraph  6.4.1,  commented  alter¬ 
native  code  is  included  in  these  subroutines  for  installation 
on  the  DEC  VAX  11/780.  The  QUICK  plotting  capability  (see 
Section  5  of  Volume  I )  for  the  interactive  graphics  mode  of 
operation  reguires  this  package. 

The  plotting  interface  should  generate  plots  without  modifica¬ 
tion  on  a  Tektronix  4010  (the  reduction  in  screen  size  may 
make  the  plots  harder  to  read).  However,  the  different  hard¬ 
ware  character  size  could  cause  printed  computer  messages  and 
user  command  input  lines  to  overlap  the  plotting  area.  In 
addition,  when  the  APLOT  plotting  option  is  used,  INSET  will 
not  relocate  the  cursor  to  the  correct  vertical  position  on 
the  left-hand  side  of  the  screen  so  that  printed  input  and 
output  lines  could  overlap  each  other.  This  problem  can  be 
eliminated  by  resetting  the  value  of  the  integer  INCTEK  (in 
common  block  /SIZES/)  from  -13  to  -22.  Some  of  the  problems 
of  printed  messages  overlapping  the  plot  area  can  be  elimina¬ 
ted  by  resetting  the  allowed  number  of  characters  in  an  input 
line  to  30.  (See  common  block  SIZES  in  Appendix  B. ) 


Conversion  of  the  program  to  run  on  some  other  graphics  termi¬ 
nal  would  depend  on  the  presence  of  several  software  items. 

A  Calcomp  emulation  package  would  be  required  that  provided 
the  routines  PLOT  and  PLOTS.  The  PLOTS  routine,  called  once 
for  each  plot  frame  for  the  interactive  graphics  mode,  must 
set  up  a  simulated  plot  area  of  9.51  vertical  inches  and  7.51 
horizontal  inches.  The  origin  must  be  set  initially  at  the 
lower  left-hand  corner  of  the  simulated  plot  area.  For  the 
normal  plotting  mode  (i.e.,  for  the  HALF  plot  setting),  this 
entire  simulated  plot  area  must  be  mapped  to  the  available 
screen  area.  For  the  FULL  plot  setting,  the  simulated  plot 
area  is  expanded  so  that  the  plot  annotation  area  is  off  the 
available  screen  area  and  the  actual  plot  occupies  as  much  of 
the  available  screen  area  as  possible  while  retaining  the 
proportion  of  the  plot.  This  expansion  is  different  for  each 
type  of  plot  and  the  proper  expansion  is  communicated  to  PLOTS 
with  the  first  argument.  Following  is  a  list  of  the  allowed 
arguments,  the  type  of  plot,  and  the  required  plotting  area. 

1  -  Normal  plot  area  setting  for  HALF  mode,  7.51  hori¬ 

zontal  by  9.51  vertical. 

2  -  X-Y  plot,  7.51  horizontal  by  6.81  vertical. 

3  -  Cylindrical  format  contour  plot,  7.51  horizontal  by 

7.07  vertical. 

4  -  Rectangular  format  contour  plot,  7.51  horizontal  by 

6.43  vertical. 

5  -  Cylindrical  format  surface  plot,  7.51  horizontal  by 

6.27  vertical. 

6  -  Rectangular  format  surface  plot,  7.51  horizontal  by 

6.27  vertical. 

The  Tektronix  PLOT-10  routine  ANMODE  is  always  called  when  the 
program  changes  from  drawing  plot  lines  to  reading  or  writing 
characters.  Some  corresponding  function  may  be  required  for 
other  plot  devices . 

The  Tektronix  PLOT-10  routine  MOVABS  is  used  to  reposition  the 
cursor  for  character  input  or  output  after  graphics  lines  and/ 
or  characters  have  been  drawn.  After  a  fresh  frame  has  been 
created,  the  cursor  is  moved  to  the  upper  left-hand  corner  of 
the  screen.  When  a  curve  is  added  to  an  existing  frame,  the 
cursor  is  moved  to  a  raster  position  at  the  left-hand  side  of 
the  screen  which  corresponds  to  the  next  line  of  character 
printout  after  the  last  line  printed  or  entered.  The  program 
keeps  track  of  this  position  with  the  variable  LNCNT  (in  com¬ 
mon  block  /STATUS/).  When  the  screen  is  cleared  for  a  new 


plot,  LNCNT  is  set  to  a  raster  number  corresponding  to  the  top 
line  on  the  screen  for  alphanumeric  I/O.  For  every  alphanu¬ 
meric  line  that  is  read  or  written,  LNCNT  is  modified  by  ad¬ 
ding  INCTEK  (in  common  block  /SIZES/).  Both  the  ANMODE  and 
MOVABS  calls  occur  in  the  subroutine  INSET.  For  application 
to  a  different  graphics  terminal,  the  ANMODE  and  MOVABS  calls 
could  be  replaced  and  the  LNCNT  information  might  or  might  not 
be  useful. 

Subroutine  PLOC  accesses  the  screen  cursor  using  subroutine 
SCURSR.  SCURSR  returns  the  cross-hair  location  in  terms  of 
the  Tektronix  raster  locations.  For  a  different  graphics 
device,  the  graphics  cursor  function  might  be  eliminated  or 
some  substitute  for  the  cursor  position  evaluation  might  be 
found. 
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7.  FILE  AND  LINKING  REQUIREMENTS  FOR  DATAMAP  PROGRAMS 


This  section  describes  the  data  sets  that  are  required  to 
link-edit  each  DATAMAP  program  and  lists  the  FORTRAN  file  re¬ 
ference  numbers  that  are  referenced  during  the  execution  of 
each  of  these  programs. 


7.1  PROGRAM  LINK  INPUT  REQUIREMENTS 

Following  is  a  listing  of  the  data  sets  required  to  link  all 
of  the  DATAMAP  programs.  For  each  program,  one  or  more  of 
these  data  sets  will  be  required.  The  data  set  names  are  only 
for  reference;  the  actual  file  or  data  set  names  may  be  dif¬ 
ferent  depending  upon  the  computer  installation. 


DATMAPLB 


PLOTIO 


FORTLIB  - 


CALCOMP 


NEWCPREV 


SYMBPACK 


This  data  set  is  a  library  of  the  subrou¬ 
tines  described  in  Section  6.1,  of  any  as¬ 
sembly  language  subroutines  that  are  pro¬ 
vided  with  DATAMAP,  and  of  any  special 
routines  that  must  be  provided  for  con¬ 
version  of  DATAMAP.  For  example,  if  a 
substitute  TIMOD  subroutine  is  written  or 
provided,  it  should  be  included  in  this 
library. 

This  data  set  is  a  library  of  the  Tektronix 
PLOT- 10  subroutines.  It  is  not  provided 
with  DATAMAP. 

This  data  set  represents  all  subroutines 
provided  by  the  computer  system.  It  is 
not  provided  with  DATAMAP. 

This  data  set  represents  either  a  library 
of  CALCOMP  subroutines  or  of  CALCOMP 
emulation  subroutines  for  an  off-line  plot 
device.  It  contains,  as  a  minimum,  the 
subroutines  PLOT,  PLOTS,  SYMBOL,  and 
NUMBER.  It  is  not  necessarily  provided 
with  DATAMAP. 

This  data  set  includes  the  object  code  for 
the  substitute  PLOT  and  PLOTS  subroutines 
for  Tektronix  operation  that  were  discussed 
in  Section  6.6. 

This  data  set  includes  the  object  code  for 
the  substitute  routines  for  the  CALCOMP 
SYMBOL  and  NUMBER  subroutines  as  discussed 
in  Section  6.6. 
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NPLDEVTO  - 

NPLDEVCO  - 

DUMMYS  - 

CHRSI2  - 

INISYM  - 

INITL  - 

EDINIT  - 

MANAGE  - 

TYBTH  - 

FCP  - 

PROCESS  - 


This  data  set  is  an  object  module  for  a 
single  subroutine  called  NPLDEV,  which 
always  returns  a  single  argument  equal  to 
three  (integer),  which  indicates  Tektronix 
plot  output. 

This  data  set  is  an  object  module  for  a 
single  subroutine  called  NPLDEV,  which  al¬ 
ways  returns  a  single  argument  equal  to 
one  (integer),  which  indicates  Calcomp 
plot  output. 

The  object  code  for  the  dummy  subroutines 
ANMODE,  MOVABS,  SCURSR,  and  PLTIME. 

Object  module  for  the  single  dummy  sub¬ 
routine  CHRSIZ  (one  argument). 

An  object  module  for  a  single  dummy  sub¬ 
routine  called  INISYM  with  no  arguments. 

This  data  set  is  the  object  code  for  most 
of  the  Master  File  Initialization  Program. 

This  data  set  is  the  object  code  for  most 
of  the  Command  Sequence  File  Initializa¬ 
tion  Program. 

This  data  set  is  the  object  code  for  most 
of  the  Master  File  Maintenance  Program. 

This  data  set  is  the  object  code  for  most 
of  the  Question  and  Answer  Program  to  Create 
User  Input  for  the  File  Creation  Program. 

This  data  set  is  the  object  code  for  most 
of  the  File  Creation  Program. 

This  data  set  is  the  object  code  for  most  of 
the  Processing  Program. 


Table  4  lists  the  subset  of  the  above-listed  data  sets  re¬ 
quired  to  link  each  DATAMAP  program.  The  link  instructions 
must  adhere  to  the  sequence  of  libraries  specified  in  this 
table.  Notice  that  there  are  several  different  configurations 
for  the  DATAMAP  Processing  Program. 


7.2  PROGRAM  RUN  TIME  FILE  REQUIREMENTS 

Each  DATAMAP  program  accesses  several  Input/Output  (I/O)  files 
that  must  be  satisfied  either  explictly  or  implictly  (i.e., 
by  default)  by  the  computer  system  command  language  (e.g.,  IBM 
Job  Control  Language).  Each  file  is  referenced  with  a  FORTRAN 
file  reference  number  with  the  possible  exception  of  the  output 


TABLE  4.  PROGRAM  LINKING  REQUIREMENTS 


Program 

Required 

Input 

Master  File  Initialization 

Program 

Input: 
Libraries : 

INITL 

DATMAPLB 

FORTLIB 

Command  Sequence  File  Initiali¬ 
zation  Program 

Input: 

Libraries : 

EDINIT 

DATMAPLB 

FORTLIB 

Master  File  Maintenance  Program 

Input: 

MANAGE 

Libraries : 

DATMAPLB 

FORTLIB 

Question  and  Answer  Program  to 
Create  User  Input  Data  Sets 
for  the  File  Creation  Program 

Input: 

Libraries : 

TYBTH 

DATMAPLB 

FORTLIB 

File  Creation  Program 

Input: 

FCP 

Libraries : 

DATMAPLB 

FORTLIB 

Processing  Program 
(Tektronix  interactive  graphics 
version  with  QUICK  plot  mode) 

Input: 

PROCESS 

NPLDEVTO 

NEWCPREV 

SYMBPACK 

Libraries : 

DATMAPLB 

PLOTlO 

FORTLIB 
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TABLE  4.  (Concluded) 


Processing  Program 
(Tektronic  interactive  graphics 
version  without  QUICK  plot  mode 
and  without  using  the  SYMBOL/ 
NUMBER  package  provided) 

Input: 

Libraries : 

PROCESS 

NPLDEVTO 

NEWCPREV 

INISYM 

DATAMAPLB 

PLOTlO 

CALCOMP 

FORTLIB 

Processing  Program 
(Batch  version  using  the 
SYMBOL/NUMBER  package  pro¬ 
vided) 

Input: 

PROCESS 

NPLDEVCO 

DUMMYS 

CHRSIZ 

SYMBPACK 

Libraries: 

DATMAPLB 

CALCOMP 

FORTLIB 

Processing  Program 
(Batch  version  without  using 
the  SYMBOL/NUMBER  package 
provided) 

Input: 

PROCESS 

NPLDEVCO 

DUMMYS 

INISYM 

Libraries : 


DATMAPLB 

CALCOMP 

FORTLIB 
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file  for  off-line  graphics.  Following  is  a  listing  of  the 
files  that  must  be  satisfied  for  execution  of  each  DATAMAP 
program  together  with  an  explanation  of  the  required  con¬ 
tent  and  structure  of  each  file.  In  the  listing,  record 
sizes  are  given  as  the  actual  data  referenced  by  FORTRAN  I/O 
statements.  System  appendages,  if  any,  must  be  added  to  the 
record  sizes. 

Master  File  Initialization  Program 

01  -  Master  File,  direct  access  disc  file  with  256- 

word  records. 

05  -  System  Input  (e.g.,  cards  or  card  images) 

06  -  System  Output  (e.g.,  line  printer) 

09  -  Alias  for  file  01.  The  same  data  set  as  file 

01  addressed  sequentially.  This  file  may  not 
be  required  for  non-IBM  installations  depend¬ 
ing  upon  the  rewritten  INIDAF  subroutine  (see 
Section  6). 

Command  Sequence  File  Initialization  Program 

01  -  Command  sequence  file,  direct  access  disc  file 

with  256-word  records. 

05  -  System  Input  (e.g.,  cards  or  card  images) 

06  -  System  Output  (e.g.,  line  printer) 

09  -  Alias  for  file  01.  The  same  data  set  as  file 

01  addressed  sequentially.  This  file  may  not 
be  required  for  non-IBM  installation  depending 
upon  the  rewritten  INIDAF  subroutine  (see  Sec¬ 
tion  6 ) . 

Master  File  Maintenance  Program 

01  -  Master  File,  direct  access  disc  file  with  256- 

word  records . 

05  -  System  Input  (e.g.,  interactive  terminal  or  card 

images ) 

06  -  System  Output  (e.g.,  interactive  terminal  or 

line  printer. 
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RESTORE  Input.  File  containing  a  partition 
or  Master  File  image.  256-word  records  read 
with  FASTIO  or  replacement  in  QUIKIO  (e.g., 
256A4  formatted  records). 

08  -  SAVE  Output.  A  partition  or  Master  File  image 

may  be  written  on  this  file.  256-word  records 
written  with  FASTIO  or  replacement  in  QUIKIO 
(e.g.,  256A4  formatted  records). 

09  -  Sequential  Scratch  File.  Disc  file  that  will 

be  used  during  movement  of  partitions  on  the 
Master  File  during  a  RESTORE  operation.  256- 
word  records  written  with  FASTIO  or  replacement 
in  QUIKIO  (e.g.,  256A4  formatted  records). 

Space  is  required  for  100  records. 

Question  and  Answer  Program  (TYBTH) 

05  -  System  Input  (e.g.,  interactive  terminal). 

06  -  System  Output  (e.g.,  interactive  terminal). 

08  -  Instruction  set.  Card  images  of  at  least  72 

characters. 

File  Creation  Program  (FCP) 


01  -  Master  File,  direct  access  disc  file  with  256- 

word  records. 


05  -  System  Input  (e.g.,  card  images) 

06  -  System  Output  (e.g.,  line  printer) 

12  -  Direct  Access  Scratch  File.  Direct  access  disc 

data  set  with  256-word  records.  Space  must  be 
available  for  1000  records. 


13  -  Sequential  Scratch  File.  The  structure  of  this 

file  is  different  for  DTF  input  processing  and 
for  BHT-GDC  format  input  processing.  For  BHT- 
GDC  format  tape  input,  the  record  size  is  re¬ 
lated  to  the  processing  of  BHT-GDC  format  re¬ 
cords.  Thus,  for  systems  that  do  not  use  8-bit 
bytes  and  4-byte  words,  the  record  size  must  be 
related  to  the  actual  handling  of  the  data  input 
records  in  subroutines  READD  and  TRANSC.  For  IBM 
and  similar  systems,  the  records  must  be  6400  bytes 
in  length.  The  records  will  be  written  and  read 
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with  FASTIO  or  appropriate  replacement  in  QUIKIO 
(e.g.,  10(160A4)  formatted  records).  For  DTF  data 
input,  the  records  must  be  1020  words.  These  re¬ 
cords  are  written  and  read  using  FORTRAN  unfor¬ 
matted  READS  and  WRITES.  The  number  of  records 
that  are  required  for  this  file  is  difficult  to 
predict  in  advance  of  any  single  job.  About 
150  records  with  a  possibility  of  dynamic  ex¬ 
tension  of  the  file  should  be  sufficient. 

14  -  Alias  for  file  12.  The  same  data  set  as  file 

12  addressed  sequentially.  This  file  may  not 
be  required  for  non-IBM  installation  depending 
upon  the  rewritten  INIDAF  subroutine  (see  Sec¬ 
tion  6 )  . 

20  -  Time  Alignment  File.  This  file  contains  time 

alignment  corrections  for  BHT-GDC  format  data 
input  when  the  ALIGN  option  is  specified  in 
the  user  command  input.  For  DTF  input  or  for 
GDC  format  input  without  the  ALIGN  option, 
this  file  will  not  be  referenced. 

21-40  -  Data  input  file(s).  For  DTF  input,  file  21 

should  be  the  DTF.  Internal  format  DTF's  are 
input  with  FORTRAN  unformatted  READ  statements. 
1024  words  are  read  for  each  record.  Exter¬ 
nal  format  DTF's  are  input  with  FORTRAN  for¬ 
matted  READ  statements  and  4096  characters  are 
read  for  each  record.  For  DTF  input,  files 
22-40  are  not  referenced.  At  IBM  installa¬ 
tions,  for  BHT-GDC  format  input,  the  FCP  refer¬ 
ences  the  first  data  tape  as  file  21  and  each 
succeeding  tape  as  a  file  reference  number  one 
higher  than  the  previous  file.  Thus,  if  seven 
tapes  are  specified  as  input  in  the  user  com¬ 
mand  input,  files  21  through  27  will  be  refer¬ 
enced. 


Processing  Program 


01  -  Master  File,  direct  access  disc  file  with  256- 

word  records. 


05  -  System  Input  (e.g.,  card  images  or  terminal) 

06  -  System  Output  (e.g.,  line  printer  or  terminal) 

11  -  Scratch  Files.  Direct  access  disc  file  with 

256-word  records. 
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l 

Alias  for  file  11.  The  same  data  set  as  file 
12  addressed  sequentially.  This  file  may  not  1 

be  required  for  non- IBM  installations  depending 
upon  the  rewritten  INIDAF  subroutine  (see  Sec¬ 
tion  6).  This  file  is  not  referenced  for  a 
permanent  scratch  file  that  does  not  require 
initialization. 

13  -  Command  Sequence  Storage  File.  A  direct  access 

disc  file  with  256-word  records. 

14  -  Info  file.  Card  image  format. 

22  -  Temporary  plot  copy  file.  Temporary  disc  file 

for  storage  of  a  single  plot  frame.  Has  three- 
word  records  that  are  written  ana  read  with 
FORTRAN  unformatted  WRITE  and  READ  statements. 

This  file  is  not  referenced  in  the  batch  mode 
of  operation  or  if  the  copy  mode  is  not  set  in 
the  interactive  or  interactive  graphics  modes 
of  operation. 

23  -  Semi-permanent  plot  copy  file.  Disc  file  for 

storage  of  one  or  more  plot  frames  until  a 
batch  job  transfers  the  plots  to  an  off-line 
graphics  device.  Has  three-word  records  that 
are  written  and  read  with  FORTRAN  unformatted 
WRITE  and  READ  statements.  This  file  is  not 
referenced  in  the  batch  mode  of  operation  or  if 
the  COPY  mode  is  not  set  in  the  interactive  or 
interactive  graphics  modes  of  operation. 
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APPENDIX  A  -  FILE  CREATION  PROGRAM  COMMON 


/CALASC/  Stored  initial  calibration  factors  for  the  item 

codes  present  in  an  assignment  record  as  supplied  by 
that  assignment  record. 

CM  -  Array  that  holds  the  slope  values  for  calibra¬ 

tion.  CM(N)  corresponds  to  the  N'th  requested 
item  code  present  in  the  current  assignment 
record. 

CB  -  Array  that  holds  the  intercept  values  for 

calibration. 


/ CNDATA/  Common  block  used  to  store  information  related  to 
the  counter  for  transfer  of  DTF  data. 

IDFLTM  -  Flight  number  in  2A4  format 

CGROSW  -  Gross  weight  (REAL) 

CCENGU  -  Center  of  gravity  (REAL) 

ICGCOD  -  Center  of  gravity  code  in  A4  format. 

IMODEL  -  Model  number  in  2A4  format 

ISHPNM  -  Ship  number  in  2A4  format 

ICDATE  -  Flight  date  in  2A4  format 

ICTIME  -  Flight  time  in  3A4  format 

IMODCD  -  Model  code  in  2A4  format 

ICTEST  -  Test/Analytic  Indicator  (INTEGER). 

0  =  unspecified,  1  =  test,  2  =  analytic 

COFFST  -  Offset  from  start  of  data  on  DTF  bundle  se¬ 
quence  to  first  data  value  meant  for  tranfer. 

CRECLN  -  Number  of  seconds  of  data  wanted  for  trans¬ 

fer  from  current  bundle  sequence. 

ICGRSW  -  Gross  weight  in  2A4  format. 

ICENGV  -  Center  of  gravity  in  2A4  format. 


/DATAPE/  Information  on  the  data  tape  being  read. 

IRCNTR  -  Current  record  number  on  the  data  tape  being 
read. 

NTPERR  -  Number  of  tape  errors  encountered  so  far  in 
reading  the  data  tapes . 

/DTFINF/  Common  block  of  general  DTF  record  processing 
variables . 

IDRTYP  -  Record  type  for  current  DTF  record  stored  in 
IDTREC .  Zero  means  no  record  present. 

NDILIN  -  For  instruction  records,  set  to  next  available 
line  of  instructions. 

NDILNS  -  For  instruction  records,  set  to  number  of  avail¬ 
able  instruction  lines  in  the  record. 

LNCONT  -  Set  to  true  if  a  counter  record  has  been  read 
for  the  next  data  bundle  sequence. 

LNITEM  -  (LOGICAL)  Set  to  TRUE,  if  an  item  code  record 
or  record  sequence  has  been  read  for  the  next 
data  bundle  sequence . 

LRAVAL  -  (LOGICAL)  Set  to  .TRUE,  if  the  DTF  record  cur¬ 
rently  stored  in  IDTREC  has  not  yet  been  pro¬ 
cessed. 

LDTEND  -  (LOGICAL)  Set  to  .TRUE,  if  an  end  of  file  has 
been  encountered  on  the  DTF. 

LALLIN  -  (LOGICAL)  Set  to  .TRUE,  when  every  DTF  record 
encountered  so  far  has  been  an  instruction 
record. 

NUMREC  -  (INTEGER)  Sequential  number  of  the  current  DTF 
record  stored  in  IDTREC. 

LDTFST  -  (LOGICAL)  Set  to  .TRUE,  if  the  first  data  bundle 
sequence  has  not  yet  been  processed  (so  that 
both  an  item  code  and  counter  record  must  be 
read  for  processing). 

LDTIME  -  (LOGICAL)  Set  to  .TRUE,  if  a  time  base  field 

has  been  processed  for  the  next  bundle  sequence. 

LBYPAS  -  (LOGICAL)  Set  to  .TRUE,  if  none  of  the  counters 
and/or  none  of  the  item  codes  from  the  next 
bundle  sequence  are  desired  for  transfer. 
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ITBTYP  -  (INTEGER)  Time  base  type  for  next  data  sequence 
on  DTF.  1  =  FSRTSI  =  sample  interval  2  =  FSRTSI 
sample  rate.  3  =  ITBITM  =  item  code  for  vari¬ 
able  sample  rate  time  base  channel . 

FSRTSI  -  (FLOATING)  Constant  sample  interval  or  sample 
rate  as  specified  by  ITBTYP 

ITBITM  -  ( A4 )  Item  code  for  variable  sample  rate  as 
indicated  by  ITBTYP. 


/EXCORB/  Common  block  used  by  routines  EXSET  and  EXCORE  for 
extended  core  simulation.  These  routines  set  up  a 
two-dimensional  matrix  of  simulated  memory  while 
actually  storing  and  retrieving  the  values  from  a 
direct  access  disc  file. 

NROWSX  -  Number  of  rows  (most  rapidly  varying  index)  in 
the  simultated  array. 

NCOLSX  -  Number  of  columns  (less  rapidly  varying  index) 
in  the  simulated  array. 

NRECOF  -  Offset  to  the  first  storage  record  available  to 
EXSET/EXCORE  in  the  direct  access  file  ad¬ 
dressed  by  these  routines. 

NRECPR  -  Direct  access  record  number  currently  held  in 

the  array  EXTREC.  If  NRECPR  =  -1,  no  record  is 
present. 

NPRMOD  -  Indicator  of  whether  the  record  currently 

stored  in  the  array  EXTREC  has  been  changed 
without  storing  the  changed  version  on  the 
disc. 

NEXDEV  -  RMS,  WMS,  FMS  pseudo-device  number  for  direct 
access  storage, 

NRSI2E  -  Size  of  a  direct  access  record  in  four-byte 
words . 


EXTREC  -  Storage  array  for  records  from  direct  access 
disc. 
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/FILC/  Convolution  filter  multipliers. 

Fl  -  Central  value  for  the  convolution  function. 

FILTM  -  Array  holding  values  for  the  convolution  func¬ 
tion. 

NFILT  -  Number  of  convolution  function  values  held  in 
FILTM. 

/FILES/  I/O  file  reference  numbers. 

NRPS  -  Master  File  (=1) 

NRSC  -  Direct  access  scratch  file  (=12) 

NSSC  -  Sequential  scratch  file  (=13) 

NITT  -  Data  Input  File  (=21  for  first  tape) 

NDIR  -  Time  skew  alignment  tape  (=20) 

NREA  -  System  input  (=5) 

NWRI  -  System  output  (=6) 

NSAV  -  Digital  tape  for  copy  of  a  partition  (=15) 

IALI  -  Sequential  alias  for  the  direct  access  scratch 

file  (=14) 

/INFILE/  DTF  input  Info  File  information 

NINFRC  -  Scratch  file  offset  for  the  next  Info  File 
group  to  be  processed. 

NGRUPS  -  Number  of  Info  File  groups  currently  stored. 

IGRUPS  -  Two-dimensional  array,  which  serves  as  a 

directory  of  the  Info  File  groups  that  are 
stored. 

IGRUPS (1,N)  =  Group  Name  (A4) 

IGRUPS ( 2, N)  =  Scratch  file  offset  for  the  start 
of  this  group. 

IGRUPS ( 3, N)  =  Number  of  columns. 


IGRUPS (4 , N)  =  Number  of  rows. 

IGRUPS ( 5 , N )  =  Number  of  double-row  elements. 

/INFO/  This  block  contains  a  set  of  control  and  information 
values  for  processing  and  transferring  the  data. 

IRSIZ  -  Number  of  two-byte  words  in  a  Master  File  re¬ 
cord  (=512) 

MLOC  -  Next  available  partition  record  number  in  the 
data  storage  area. 

LOCO  -  Not  used 

IPOLES  -  Set  to  zero  if  no  filtering  is  required  for  at 
least  one  of  the  requested  items  present  on  the 
current  assignment  record. 

HIGH  -  Initially  set  to  the  lowest  digital  filtering 
breakpoint  requested  for  any  of  the  item  codes 
present  on  the  current  assignment  record.  For 
transfer  to  the  Master  File,  HIGH  is  set  to  the 
requested  digital  filter  breakpoint  for  the 
item  to  be  transferred. 

LCAL  -  Set  FALSE  if  item  code  data  about  to  be  trans¬ 
ferred  to  the  Master  File  is  not  to  be  calibra¬ 
ted,  set  TRUE  otherwise. 

I RAT  -  Sample  rate  for  the  data  on  digital  tape  corre¬ 
sponding  to  the  current  assignment  record. 

I SKIP  -  Sample  rate  reduction  factor  to  be  applied  in 
transferring  data  for  the  currently  specified 
item  code  to  the  Master  File. 

NPS  -  Initially,  the  number  of  points  of  data  wanted 
for  a  particular  counter  given  the  sample  rate 
of  the  data  on  tape.  NPS  must  be  divided  by 
I SKIP  to  calculate  the  proper  number  of  points 
to  transfer  to  the  Master  File.  After  transfer 
of  a  data  stream,  NPS  is  the  number  of  data 
values  transferred  multiplied  by  ISKIP. 

NPP  -  This  value  indicates  the  number  of  values  for 

each  item  code  present  on  the  scratch  disc  file 
before  transfer  to  the  Master  File. 


NOFF 


-  This  value  indicates  the  total  number  of  data 
samples  that  should  be  skipped  before  data 


from  a  particular  item  code  are  transferred  to 
the  Master  File.  NOFF  should  reflect  both  the 
alignment  and  absolute  offsets. 

ISEQ  -  This  value  gives  the  word  position  for  the 

first  data  value  on  a  data  record  which  corres¬ 
ponds  to  the  item  code  to  be  transferred  to  the 
Master  File. 

LSTRT  -  Equivalent  to  ISEQ. 

I ADD  -  Increment  that  must  be  applied  to  a  location 

on  an  input  data  record  to  reach  the  next  data 
value  for  the  same  item  code.  Equivalent  to 
the  number  of  item  codes  present  in  the  assign¬ 
ment  record. 

INSIZ  -  Number  of  two-byte  integer  words  in  a  data  re¬ 
cord  on  tape  (=3240). 

INSIZD  -  Number  of  two-byte  integer  word  in  a  data  re¬ 
cord  stored  on  the  scratch  file  after  the  in¬ 

formation  bytes  have  been  stripped  from  the 
front  (=3200). 

IRDATS  -  Not  used 

IRSAUS  -  Not  used 

ICNTR  -  Current  counter  for  the  data  transferred  from 
tape . 

XALIGN  -  Time  skew  alignment  offset  in  seconds  to  be  ap¬ 
plied  to  the  current  item  code/counter. 


MSETN  -  Sequence  number  in  Master  File  directory  of 
the  partition  currently  being  processed. 

/ITMDAT/  Common  block  of  item  code  related  variables  for  DTF 
input  processing. 

NMTCHS  -  Number  of  item  codes  in  the  current  bundle 

that  have  been  requested  for  transfer  by  the 
user  instruction  ( Init-DTFITM) 

ITIMEB  -  Sequential  position  in  the  bundle  of  the 
time  base  item  code.  (Init-DTFITM) 

FILMIN  -  Minimum  roll-off  point  of  the  digital  filters 
selected  for  the  current  bundle.  (Init- 
DTFITM) 


NBUNSZ  -  Number  of  items  in  the  current  bundle.  (Init- 
DTFITM) 

FMODLO  -  Modulo  specifications  for  each  of  the  selected 
items  in  the  current  bundle.  Subscript  is  from 
sequence  of  selected  item  codes  only.  The  same 
subscript  is  used  for  ITEMW  and  ITEMTP .  (Init- 
DTFITM) 

ITMTRN  -  List  of  keys  indicating  whether  or  not  a  se¬ 
lected  item  code  has  been  transferred  from 
scratch  to  the  master  file.  0  =  not  trans¬ 
ferred,  1  =  transferred.  Subscript  is  same  as 
for  FMODLO,  ITEMW,  and  ITEMTP. 

/KARD/  Common  block  to  keep  track  of  data  from  the  current 
assignment  record. 

ITEMTP  -  ITEMTP (N)  gives  the  position  in  the  sequence  of 
item  codes  present  on  the  current  assignment 
record  of  the  N'th  requested  item  of  the  items 
on  the  assignment  record. 

ITEMW  -  ITEMW(N)  points  to  the  word  in  the  ITEM  array 
which  contains  the  item  code  which  corresponds 
to  the  N'th  requested  item  of  the  items  on  the 
assignment  record. 

CALSH  -  The  CALSH  array  gives  Calibration  Shift  values 
from  the  assignment  or  calibration  record  which 
correspond  to  the  same  item  codes  as  the  ITEMTP 
and  ITEMW  arrays. 

CALCM  -  The  CALCM  array  gives  Calibration  Command 
values  from  the  assignment  or  calibration 
record  which 

correspond  to  the  same  item  codes  as  the  ITEMTP 
and  ITEMW  arrays. 

CXM  -  The  CXM  array  gives  calibration  slope  values 

from  the  assignment  or  calibration  record  which 
correspond  to  the  same  item  codes  as  the  ITEMTP 
and  ITEMW  arrays. 

CXB  -  The  CXB  array  gives  calibration  intercept 
values  from  the  assignment  or  calibration 
record  which  correspond  to  the  same  item  codes 
as  the  ITEMTP  and  ITEMW  arrays. 

NMATCH  -  Number  of  requested  item  codes  present  on  the 
current  assignment  record. 


DCAL  -  Delta  cal  values  from  the  assignment  or  cali¬ 
bration  record  which  correspond  to  the  same 
item  codes  as  the  ITEMTP  and  ITEMW  arrays. 


/KARD1/  This  common  block  corresponds  identically  to  common 
block  /HARD/  as  described  in  Appendix  B. 

/LIST/  This  block  contains  the  interpreted  user  instruc¬ 
tions  for  transfer  of  data  from  tape  to  the  Master 
File. 

NITEMS  -  Number  of  item  codes  stored  in  the  ITEM  array. 

NCNTRS  -  Number  of  counters  stored  in  the  NCTR  array. 

ISPAC  -  Requested  number  of  direct  access  records  for 
the  Master  File  partition  to  be  created,  re¬ 
placed,  or  modified. 

ITAPES  -  Number  of  input  data  tapes  to  be  read. 

IADNU  -  Mode  with  regard  to  Master  File  partition. 

IADNU=  1,  Add  to  existing  partition 

IADNU=  0,  New  partition 

IADNU=-1,  Replace  partition 

LALIN  -  Logical  variable 

LALIN  =  TRUE.,  Use  time  skew  alignment 
LALIN  =  FALSE.,  Do  not  use  time  skew  alignment 

NAME  -  Array  containing  partition  name. 

NPWD  -  Array  containing  partition  password. 

NUSER  -  Array  containing  user  name. 

MAPIT  -  Logical  variable 

MAPIT=  .TRUE.,  Generate  partition  listing  after 
completion  of  all  data  transfers. 
MAPIT=  .FALSE.,  Do  not  generate  a  partition 
listing. 

SAVIT  -  Logical  variable 

SAVIT=  .TRUE.,  Save  partition  on  digital  tape 
after  completion  of  all  data  trans¬ 
fers  . 

SAVIT=  .FALSE.,  Do  not  save  partition  on  digi¬ 
tal  tape. 
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STRANG 

LDTF 

NLOOK 

LDTF IN 

LTHERE 

LEXTRN 

LALLIT 

LALLCN 

LSCAN 

NCTR 

NOFFST 

NPWANT 

ITEM 

FILT 


-  Logical  variable. 

STRANG= . TRUE . ,  Input  data  are  not  in  standard 
BHT-GDC  format. 

STRANG= . FALSE . ,  Input  data  tapes  are  in  stand¬ 
ard  BHT-GDC  format. 

-  Logical  variable.  True  if  data  input  is  in 
DTF  format.  False  otherwise. 

-  Product  of  the  number  of  item  codes  and  the 
number  of  counters  requested  for  transfer. 

-  Logical  variable.  True  if  user  instructions 
are  to  be  read  from  the  DTF.  False  otherwise. 

-  Logical  variable.  True  if  FRSTLN  has  read  a 
line  of  user  input  into  ICHAR  and  has  left  the 
line  for  further  processing  by  INLIST. 

-  Logical  variable.  True  if  DTF  input  is  in 
external  format.  False  otherwise. 

-  Logical  variable.  True  if  all  item  codes 
that  occur  on  a  DTF  are  wanted  for  transfer. 
False  otherwise. 

-  Logical  variable.  True  if  all  counters  that 
occur  on  a  DTF  are  wanted  for  transfer.  False 
otherwise. 

-  Logical  variable.  True  if  only  a  scan  of  DTF 
input  for  format  validity  without  transfer 

of  data  is  desired.  False  otherwise. 

-  Array  of  requested  counters. 

-  Offsets  to  be  applied  to  time  histories  from 
the  counters  in  NCTR  which  correspond  by  index. 
Offsets  are  stored  in  seconds  as  floating  num¬ 
bers  . 

-  Length  of  time  history  to  be  transferred  for 
the  counters  in  NCTR  which  correspond  by  index. 
Times  are  stored  in  seconds  as  floating  num¬ 
bers  . 

-  Array  of  requested  item  codes. 

-  Break  frequencies  for  low  pass  digital  filters 
to  be  applied  to  the  time  history  from  the  item 
codes  in  ITEM  which  correspond  by  index.  Break 
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frequencies  are  stored  in  Hz.  Negative  or  zero 
values  indicate  no  filtering  should  be  applied. 

ICAL  -  Indications  of  whether  to  store  time  histories 
in  calibrated  or  integer  format.  The  indica¬ 
tions  correspond  by  index  to  the  item  codes  in 
ITEM.  ICAL(N)  =  0  means  no  calibration  and 
ICAL(N)  =  1  means  calibration. 

ISKP  -  Sample  rate  reduction  factors  for  the  time  his¬ 
tories  from  the  item  codes  in  ITEM  which  corre¬ 
spond  by  index.  Values  are  stored  as  integers 
(e.g.,  a  value  of  four  means  every  fourth 
sample  will  be  transferred  to  the  Master  File). 

RATE  -  Specified  sample  rate  for  storage  of  data  from 
a  DTF . 

/LOCOM/  Information  for  data  transfer  process. 

ITEMN  -  Current  item  code  to  be  transferred. 

ICNTRN  -  Current  counter  to  be  transferred. 

IDROFF  -  Offset  for  the  partition  directory  in  records. 

IDASIZ  -  Number  of  records  in  the  partition  data  area. 

IDRSIZ  -  Number  of  records  in  the  directory. 

ITEMRC  -  Record  number  for  portion  of  item  code  direc¬ 
tory  which  contains  current  item  code. 

ITEMSQ  -  Sequence  position  in  directory  record  for  cur¬ 
rent  item  code. 


/MASS/  Identical  to  /MASS/  common  block  in  Appendix  B. 


/SCRAT/  This  common  block  specifies  a  general  scratch  area. 
KDUMMY  -  General  scratch  array. 


/SIZES/  General  constants  stored  as  variables  for  use 
throughout  the  program. 

MAXCN  -  Maximum  number  of  counters  that  may  be  speci¬ 
fied  for  transfer  in  one  run  of  the  File 
Creation  Program. 
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IDAFWD  -  Number  of  words  in  a  record  in  the  direct 
access  files  assessed  by  the  File  Creation 
Program. 

INBYTE  -  Number  of  bytes  in  a  GDC  format  tape  input 
block. 

CTRMAX  -  Maximum  size  entry  for  a  counter. 

INFSPC  -  Number  of  scratch  direct  access  records  re¬ 
served  for  prototype  initial  records  of  time 
histories . 

IDAFBT  -  Number  of  bytes  in  a  record  in  the  direct  ac¬ 
cess  files  accessed  by  the  File  Creation 
Program . 

KDSIZE  -  Size  of  the  scratch  common  array  KDUMMY  in 
/SCRAT/ 

MAXIT  -  Maximum  number  of  item  codes  that  may  be  speci¬ 
fied  for  transfer  to  the  Master  File. 

NCREAD  -  Number  of  character  positions  to  be  examined 

by  READF  for  character  input.  Characters  other 
than  blanks  may  not  be  allowed  towards  the 
end  of  the  line. 

IBIG  -  Large  integer  for  use  as  limit  for  DO  Loop 

where  exit  from  the  loop  will  be  by  a  decision 
jump. 

NCHARS  -  Largest  character  position  in  an  instruction 
input  line  that  may  contain  a  non-blank  char¬ 
acter  . 

ISZDSR  -  Size  in  words  of  a  sequential  scratch  record 
for  DTF  data  transfer. 

LACCSZ  -  Size  of  the  LACCUM  array 

LTRPSZ  -  Not  used 

IFLBSZ  -  Size  of  the  area  in  KDUMMY  allocated  to  the 
pre-filter  accumulators. 

NTRPSZ  -  Size  of  the  area  in  KDUMMY  allocated  to  pre¬ 
interpolation  accumulators. 

MIFGRI  -  Number  of  groups  that  may  be  specified  in  an 
internal  format  DTF  record. 
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MIFGRE  -  Number  of  groups  that  may  be  specified  in  an 
external  format  DTF  record. 

MXIFGP  -  Max  number  of  info  file  groups  that  may  be 
specified  in  one  DTF. 

MXIFRC  -  Max  number  of  rows  and/or  columns  that  may  be 
specified  for  an  info  file  group. 

MXDASR  -  Highest  direct  access  scratch  record  that  can 
be  used  for  temporary  storage  of  info  file 
data  during  DTF  data  transfer. 

INCLMS  -  Largest  character  position  in  an  Info  File 
output  line  that  can  be  non-blank. 

/TMPRCM/  Common  block  of  values  used  for  transfer  of  data 
records  from  DTF  to  scratch  file. 

LSTRTD  -  (LOGICAL)  TRUE  if  a  bundle  corresponding  to 

the  required  starting  offset  is  found.  Rela- 
vent  for  initial  transfer  of  data  to  scratch 
file.  ( Init-CPYTSC,  Set-TMPRSM) 

TOFFST  -  Required  starting  offset.  Before  LSTRTD  = 

.TRUE.,  this  is  the  total  offset  from  the  start 
of  data  on  the  DTF  to  the  first  required  data. 

When  LSTRTD  =  .TRUE.,  this  is  the  offset  excluding 
time  in  the  scratch  records  that  are  skipped. 
(Init-CPYTSC,  Set-TMPRSM) 

NBNSKP  -  Number  of  bundles  in  skipped  scratch  records 
for  TMPRSM.  (Init-CPYTSC,  Set-TMPRSM) 

TFRSTP  -  Initial  time  for  previous  record  processed  by 
TMPRSM.  (Init-CPYTSC,  Set-TMPRSM) 

TMAX  -  Max  time  to  copy  to  the  scratch  file  excluding 
skipped  records.  ( Init-TMPRSM) 

TSAVED  -  Time  stored  on  scratch  file  excluding  skipped 
records.  (Init-TMPRSM) 

LCMPLT  -  (LOGICAL)  .TRUE,  if  all  necessary  data  is 
saved  on  the  scratch  file  already.  (Init- 
CPYTSC,  Set-TMPRSM) 

TC0RR1  -  For  variable  sample  rate  data,  the  time  for 
the  first  bundle  before  correction.  (Init- 
TMPRSM) 
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TSUBTR  -  Time  to  subtract  from  variable  sample  rate 

time  instants  during  transfer  of  data  to  the 
scratch  file. 

LNODAT  -  (LOGICAL)  .TRUE,  if  no  data  record  is  available 
in  IDTREC .  (Init-CPYTSC,  Set-CPYTSC) 

LENDAT  -  (LOGICAL)  .TRUE,  if  the  end  of  the  input  DTF 

data  is  encountered.  (Init-CPYTSC,  Set-PRFORM) 

NRPRVI  -  For  DTF  input  with  data  bundles  greater  than  the 
capacity  of  a  data  record.  Number  of  records 
that  have  been  processed  for  the  current  bundle. 

LOCREC(8)  -  Location  on  the  input  bundles  of  the  data 
from  the  item  codes  in  the  current  set. 

( Init-SETUP) 

ITEMFD(8)  -  Item  code  for  each  position  in  the  current 
set.  (Init-SETUP) 

LOCL(8)  -  Starting  record  offsets  on  the  Master  File 

partition  for  the  data  streams  corresponding 
to  each  item  code.  Actual  locations  given 
are  the  record  positions  for  the  info  records. 
(Init-SETINF) 

VLAST ( 8 )  -Last  data  value  for  each  time  history  in  the 

current  set.  Used  to  extend  the  time  histories 
to  satisfy  convolution  filter  edge  requirements. 

LACCUM( 2048 )  -  Array  that  contains  data  records  to 

be  written  to  the  Master  File  partition.  The 
first  record  starts  at  subscript  1  and  each 
succeeding  record  starts  at  a  subscript  IDAFWD 
larger. 

/TRNCOM/  General  common  variables  for  transfer  at  DTF  data 
to  Master  File. 

NORECS  -  Number  of  data  records  to  be  written  to  the 

Master  File  for  each  item  code  in  the  current 
set  of  item  codes  being  transferred  from 
scratch. 

NITSET  -  Number  of  item  codes  in  the  current  item  code 
set  for  transfer  from  scratch  to  the  Master 
File. 

NLEADR  -  Number  of  points  required  before  and  after  the 
data  interval  to  be  transferred  for  the  current 
convolution  filter. 


IAFLSZ 

LASFLT 

LASDAT 

NSKIP 

NUMCRR 

NBUNDL 

NBUNDl 

NBUND2 

NSRSKP 

TINC 

TLEADR 

TINCMN 

XOFFST 

NBUNSR 

LENDS C 

IRCRAW 


-  Size  of  the  pre-filter  accumulators  in  KDUMMY 
for  each  item  code  in  the  item  code  set. 

-  Position  of  the  last  filtered  data  value  in 
each  pre-filter  accumulator. 

-  Position  of  the  last  unfiltered  data  value  in 
each  pre-filter  accumulator. 

-  Not  used 

-  Number  of  values  in  each  data  accumulator  buffer 
(LACCUM)  for  transfer  to  the  Master  File. 

-  Number  of  bundles  in  current  bundle  sequence 
excluding  bundles  on  records  to  be  skipped. 

-  Not  used 

-  Not  used 

-  Number  of  scratch  records  to  skip  before  data 
to  be  processed  is  encountered. 

-  Sample  interval  for  data  to  be  written  to  the 
pre-filter  buffers.  ( Init-CPYTSC ) 

-  Equivalent  amount  of  time  required  for  filter 
initialization  for  the  current  set  of  item 
codes  to  be  transferred  from  scratch. 

-  Sample  interval  for  data  to  be  written  to  the 
pre-interpolation  buffers.  (Init-CPYTSC) 

-  Time  offset  from  first  data  point  required 
for  any  kind  of  processing  (i.e.,  transfer 

or  filtering)  to  first  data  point  required  for 
transfer. 

-  Max  number  of  bundles  stored  in  a  scratch  file 
record. 

-  (LOGICAL)  True  if  the  end  of  the  scratch  file  has 
been  encountered  for  the  current  transfer  from 
scratch. 

-  Number  of  records  read  from  the  scratch  file 
in  the  current  pass. 
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MXNTRP  -  Maximum  number  of  values  that  can  be  accommo¬ 
dated  by  the  pre-interpolation  buffers. 

TNEXT  -  Time  for  next  value  to  be  placed  in  pre-filter 
buffer  by  interpolation  ( Init-SETIME,  Set- 
INTRPG) 

FILTRT  -  Low-pass  filter  break-frequency  for  item  code 
set  to  be  transferred  from  scratch.  (Init- 
SETUP) 

FMODLX  -  Modulo  value  for  item  code  set  to  be  transferred 
from  scratch  (Init-SETUP) 

ISKIPR  -  Skip  rate  specified  by  user  for  current  item 
code  set.  A  positive  value  specifies  that 
the  rate  was  not  specified.  (Init-SETUP) 

ISKIPX  -  Skip  rate  to  be  applied  to  points  in  the  pre¬ 
filter  buffer  by  the  filtering  or  unfiltered 
skipping  process .  (Init-SETUP) 

NRESLT  -  Number  of  interpolated  data  values  in  each 
interpolated  data  buffer. 

NPTOUT  -  Number  of  data  points  to  be  generated  for 
each  item  code  in  the  current  transfer. 
(Init-SETUP) 

NXNTRP  -  Next  relative  point  location  to  be  added  in 
the  pre-interpolation  array  -  ' INTRPR ' 
(Init-SETAPE,  Set-INTRPG) 

NPRAW  -  Number  of  points  in  the  raw  data  input  buffer. 
(Init-SETAPE,  Set-INTRPG) 

NPT  -  Bundle  number  from  the  current  scratch  input 
record  that  is  being  processed  from  the  pre¬ 
filter  buffers. 

NEXTND  -  Number  of  points  that  must  be  simulated  as 

values  equal  to  the  last  available  value  and 
appended  to  the  end  of  available  data  to 
satisfy  the  edge  requirement  for  the  convolu¬ 
tion  filter  (Init-SETUP) 

NEXSTR  -  Number  of  points  that  must  be  simulated  as 

values  equal  to  the  first  available  value  and 
appended  to  the  start  of  available  data  to 
satisfy  the  edge  requirement  for  the  convolu¬ 
tion  filter  (Init-SETUP) 
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NBPROS  -  Bundle  number  in  the  bundle  sequence  that  is 
currently  being  processed  from  the  scratch 


/WLIST/  List  of  keywords  to  decode  user  input  instructions. 

N  -  Number  of  keywords  present  in  the  IAA  array. 

IAA  -  Two-dimensional  array  of  keywords.  Second 

array  index  corresponds  to  the  keyword  number. 
The  four-character  keywords  are  stored  with  one 
left  justified  character  per  four-byte  word. 


/WLIST1/  Coded  start  and  stop  times  for  current  counter  and 
item  code. 

I START  -  Coded  start  time  as  described  in  the  BHT-GDC 
Standard  Digital  Tape  Format. 

I STOP  -  Currently  set  to  zero. 
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APPENDIX  B 


PROCESSING  PROGRAM  COMMON  VARIABLES 


/ATTPAR/  Area  for  storage  of  processed  attached  parameter 

information.  The  time  base  for  the  data  stored  is 
normally  the  sequence  of  zero  degrees  azimuth  in¬ 
stants.  When  appropriate  azimuth  data  are  not 
available,  this  time  base  is  synthesized  with  an 
interval  between  instants  of  two- tenths  of  a  second. 

NVAL  -  Total  number  of  time  instants  represented  in 
the  time  base,  TMA2MO.  These  instants  may  be 
either  synthesized  or  real  azimuth  equal  zero 
degrees  time  instants  as  explained  above. 

NCNTR  -  Counter  which  corresponds  to  the  current  data 
stored  in  ATTPAR. 

T1  -  First  time  instant  in  time  base. 

T2  -  Last  time  instant  in  time  base. 

LTMAZM  -  Total  number  of  time  instants  in  the  time  base 
TMAZMO ,  which  are  real  azimuth  values.  The 
real  azimuth  values  must  form  a  contiguous  se¬ 
quence  beginning  with  TMAZMO(l). 

LTASVA  -  Total  number  of  true  airspeed  values  present 

in  the  TASVAL  array.  If  LTASVA  is  greater  than 
zero,  the  first  TASVAL  value  must  correspond  to 
the  first  TMAZMO  time. 

LRPMVA  -  Total  number  of  rotor  speed  values  present  in 
the  RPMVAL  array.  If  LRPMVA  is  greater  than 
zero,  the  first  RPMVAL  value  must  correspond  to 
the  first  TMAZMO  time. 

LOATVA  -  Total  number  of  outside  air  temperature  values 
present  in  the  OATVAL  array.  If  LOATVA  is 
greater  than  zero,  the  first  OATVAL  value  must 
correspond  to  the  first  TMAZMO  time. 

LSTATV  -  Total  number  of  static  pressure  values  present 
in  the  STATVL  array.  If  LSTATV  is  greater  than 
zero,  the  first  STATVL  value  must  correspond  to 
the  first  TMAZMO  time. 
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XSTRSC  -  Time  corresponding  to  the  first  data  value  on 
the  scratch  file  (SCFl  or  SCF2 )  used  for  input. 

XINTSC  -  Time  interval  between  data  values  on  the  scratch 
file  (SCFl  or  SCF2)  used  for  input. 

NMAXSC  -  Number  of  data  values  present  for  the  first 
time  history  on  the  scratch  file  (SCFl  or 
SCF2)  used  for  input. 

AZMGRP  -  Azimuth  offset  specified  by  Info  File  geometric 
group . 

NPRCRA  -  Partition  access  slot  pseudo  file  (i.e.,  1  or 
9)  for  the  partition  source  for  the  current 
attached  parameter  data. 

TMAZMO  -  Array  of  time  instants  forming  a  time  base  for 
the  values  in  the  arrays  TASVAL,  RPMVAL,  OATVAL 
and  STATVL.  These  time  instants  may  or  may  not 
correspond  to  instant  of  zero  degrees  azimuth 
as  explained  in  the  heading  for  common  block 
/ATTPAR/. 

TASVAL  -  Array  of  true  airspeed  values  in  knots. 

RPMVAL  -  Array  of  rotor  speed  values  in  RPM. 

OATVAL  -  Array  of  outside  air  temperature  values  in 
degrees  centigrade. 

STATVL  -  Array  of  static  pressure  values  in  psia. 


/BSPARE/  Area  for  data  storage  in  processing. 

XSPARE  -  Array  for  storage  of  data  or  scales  during 
processing.  This  array  must  always  be  at 
least  three-quarters  the  size  of  XBUFF. 


/BUFFER/  Area  for  data  storage  in  processing. 

XBUFF  -  Array  for  storage  of  data  or  scales  during 

processing.  The  number  of  words  in  this  array 
must  correspond  to  IBFSIZ  in  the  block  SIZES. 


/CLCOMP/  Common  block  used  exclusively  by  the  PLOT  and  PLOTS 
emulation  package  for  the  Tektronix,  and  by  the  PLOC 
subroutine . 


147 


XMULT  -  Multiplier  used  to  convert  simulated  horizontal 
plot  paper  position  in  inches  to  horizontal 
raster  position  on  the  Tektronix  screen. 

YMULT  -  Multiplier  used  to  convert  simulated  vertical 
plot  paper  position  in  inches  to  vertical 
raster  position  on  the  Tektronix  screen. 

XACUM  -  Horizontal  offset  to  plot  origin  in  plot  paper 
coordinates . 

YACUM  -  Vertical  offset  to  plot  origin  in  plot  paper 
coordinates . 

I LEFT  -  Horizontal  raster  position  on  the  Tektronix 

screen  that  corresponds  to  the  initial  hori¬ 
zontal  paper  position  of  0.0. 

IBOTT  -  Vertical  raster  position  on  the  Tektronix 

screen  that  corresponds  to  the  initial  verti¬ 
cal  paper  position  of  0.0. 

/CNGBLK/  Communication  and  work  area  for  command  sequence 
editing  function. 

NLINES  -  Number  of  lines  in  the  command  sequence  block 
to  be  edited. 

NAMSEQ  -  Name  of  the  command  sequence  block  to  be 
edited.  Held  in  'A4'  format. 

LOCAT,  IDELl ,  IDEL2  -  Work  arrays  corresponding  to  line 
numbers  for  command  sequence  editing. 

IWORK  -  Work  array  used  for  display  of  user  input  line 
error  diagnostics. 

LINE  -  Array  corresponding  to  command  sequence  block 
before,  after,  and  during  editing.  The  second 
index  corresponds  to  line  number.  Each  line 
is  stored  in  16A4  format. 

LINECH  -  Array  to  hold  line  changes  during  editing  prior 
to  a  renumbering  operation  ($N). 

MERGEL  -  Array  to  hold  renumbered  command  sequence  block 
during  the  renumber  operation  ($N). 


/CNTLIP/  Directive  and  information  values  for  data  input  and 
processing 


IPRCOD 


IPRTYP  - 


IPRTWO 

ISCFIP 
NFREE  - 


NCOLSI  - 

NROWSI  - 

LROWP 
TIME1  - 

DURATN  - 

ICYCLS  - 


Processing  code  assigned  in  an  ANALYZE,  DERIVE 
or  DISPLAY  command  step.  Set  in  PROSET  and 
interpreted  in  PROl  or  PR02. 

Certain  types  of  processes  are  grouped  together 
for  the  process  flow.  IPRTYP  =  4  indicates  a 
process  using  data  from  multiple  row  positions 
for  each  column  position  (e.g.,  a  Cn  integra¬ 
tion)  which  would  be  accomplished  in  PR02. 
IPRTYP  =  5  indicates  a  process  using  data  from 
multiple  column  positions  simultaneously  (i.e., 
blade  slope)  which  is  accomplished  in  SLOPST. 
Any  other  value  for  IPRTYP  indicates  a  process 
accomplished  in  PROl. 

-  Set  to  one  if  process  must  have  two  input  data 
streams.  Set  to  one  otherwise. 

-  Not  used 

Source  of  input  data.  Allowed  values: 

1  =  SCFl 

2  =  SCF2 

3  =  SCF3 

4  =  Info  file  group  specifies  item  code(s) 

5  =  User  specified  item  code 

6  =  Info  file  specifies  item  code  required 

for  derivation  by  keyword 

7  =  Attached  parameter  data  is  sufficient 

for  derivation 

Number  of  columns  (3rd  dimension)  to  be  input 
for  processing. 

Number  of  rows  (2nd  dimension)  to  be  input  for 
processing. 

-  Not  used 

Time  specified  by  user  as  either  the  beginning 
of  the  input  time  history  to  be  used  or  a  time 
instant  included  in  the  rotor  cycle  just  before 
the  beginning  of  data  which  will  occur  at  azi¬ 
muth  equals  zero  degrees. 

Length  of  the  input  time  history  in  seconds 
when  ICYCLS  is  less  than  zero. 

Length  of  the  input  time  history  is  rotor 
cycles.  ICYCLS  =  0  specifies  that  a  single 
instant  corresponding  to  a  user  specified  azi¬ 
muth  value  will  be  input.  ICYCLS  less  than 
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zero  specifies  that  the  length  of  the  time  his¬ 
tory  is  given  by  DURATN. 

AZIM  -  Specifies  a  single  rotor  azimuth  position  for 
input  when  ICYCLS  =  0. 

M12INP  -  Specified  which  double-row  elements  are  present 
input.  The  values: 

0  =  Both  double-row  elements 

1  =  Top  double-row  element  only 

2  =  Bottom  double-row  element  only 

NCOLI  -  When  NCOLSI  =  1,  this  variable  specifies  which 
column  element  is  input. 

NROWI  -  When  NROWSI  =  1,  this  variable  specifies  which 
column  element  is  input. 

IDATPR  -  A  two-element  array  which  specifies  how  many 
data  points  are  present  in  the  current  input 
data  record.  IDATPR(l)  corresponds  to  the  top 
double-row  element  and  IDATPR(2)  corresponds 
to  the  bottom  double-row  element. 

IEPROS  -  Set  to  one  for  ensemble  averaging.  Set  to 
zero  otherwise. 


/CNTLOP/  Directive  and  information  values  for  data  process¬ 
ing  and  output. 

MODOUT  -  Output  mode.  Allowed  values  are: 

1  -  Plot  single  curve 

2  -  Plot  multiple  curves 

3  -  Add  a  curve  to  an  existing  plot  frame 

4  -  Print  data 

5  -  Contour  plot 

6  -  Surface  plot 

7  -  Keep  results  on  a  scratch  file  while 

destroying  any  data  already  present  on 
the  file 

8  -  Add  results  to  a  scratch  file  along  with 

any  data  already  present  on  the  file. 

9  -  Comparison  plot 
10  -  Double  scale  plot 

ISFOUT  -  Scratch  file  to  be  used  for  output  when 

MODOUT  =  7  or  MODOUT  =  8.  Allowed  values  are: 


150 


Ml 2 OUT  - 

OUTMAX  - 

OUTMIN  - 

NMAXOT 

OUTXMX 

OUTXMN 

LSCALE  - 

LSCALY  - 


OUTMX2 


V 


1  =  SCF1 

2  =  SCF2 

3  =  SCF3 

Specifies  which  double-row  elements  are  present 
on  output.  The  values  are: 

0  =  Both  double-row  elements 

1  =  Top  double-row  element  only 

2  =  Bottom  double-row  element  only 

Maximum  output  value  from  any  output  time 
history  created  during  the  current  command 
step . 

Minimum  output  value  from  any  output  time 
history  created  during  the  current  command 
step . 

-  Maximum  number  of  output  values  in  the  first 
dimension. 

-  Maximum  first  dimension  scale  value  that 
occurs  for  the  function  that  is  being  pro¬ 
cessed. 

-  Minimum  first  dimension  scale  value  that  oc¬ 
curs  for  the  function  that  is  being  processed. 

Specifies  parameter  for  first  independent 
variable  for  plot  output.  Allowed  values  are: 

1  =  Time,  Frequency  or  Harmonic  Number 

2  =  Azimuth 

3  =  True  airspeed 

4  =  Rotor  speed 

Specifies  parameter  for  second  independent 
variable  for  plot  output.  Important  only  for 
3-dimensional  plot  representations  (i.e., 
SURFACE  or  CONTOUR).  Allowed  values  are: 

1  =  Row  or  column 

2  =  Azimuth 

3  =  True  airspeed 

4  =  Rotor  speed 


-  Maximum  second  double-row  element  dependent 
variable  value  for  all  rows  and  columns.  Only 
set  if  both  double-row  elements  are  processed. 
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0UTMN2  -  Minimum  second  double-row  element  dependent 

variable  value  for  all  rows  and  columns.  Only 
set  if  both  double-row  elements  are  processed. 

/CURRNT/  Block  to  contain  information  on  status  of  user 
interface  overlay  process. 

ISBSTP  -  Current  substep  being  processed. 

I ENTRY  -  Current  entry  in  substep  being  processed. 

Set  to  -1  when  substep  complete,  -2  when 
command  step  complete. 

ITREE  -  Current  tree  position  in  command  input  process. 

LINHLD  -  Line  held  in  ICHAR  is  first  line  of  a  new 

command  step  when  LINHLD  =  1.  This  variable 
is  relevant  only  when  MODSCN  =  1  (input 
scanning  only). 

I EOF  -  Normally  set  to  zero.  Set  to  one  if  end  of 

file  condition  was  found  on  last  system  input. 

IUENT  -  Sequence  number  of  entry  to  be  processed  on 
current  line  of  user  input. 

NUENTS  -  Number  of  entries  available  on  current  line 
of  user  input. 

IDEFLT  -  When  set  to  one,  default  values  are  specified 
for  the  remainder  of  the  current  substep  and 
slash  terminating  the  substep  is  present.  When 
set  to  zero,  the  above  conditions  do  not  per¬ 
tain. 

I OPT  -  Entry  option  selected  for  a  particular  tree 
position. 

NEXT  -  Number  of  next  substep  to  be  entered. 


/DATSET/  Control  values  and  buffer  arrays  for  retrieval  of 
data  from  the  Master  File. 

ICTRDN  -  Sequential  record  number  for  the  portion  of 
the  counter  directory  currently  present  in 
ICTRD.  If  ICTRDN  =  0,  then  no  portion  of  the 
counter  directory  is  present  in  ICTRD.  The 
sequential  record  number  need  not  correspond 
to  the  relative  record  number  in  the  directory. 
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ITMDN 


Sequential  record  number  for  the  portion  of 
the  item  code  directory  currently  present  in 
ITEMD.  The  sequential  record  number  need  not 
correspond  to  the  relative  record  number  in  the 
directory. 

ITMDNl  -  Relative  record  number  for  the  portion  of  the 
item  code  directory  currently  present  in 
ITEMD. 

INFOLC  -  Relative  record  number  for  the  information 

record  for  the  current  item  code  and  counter. 

ICTRC  -  Current  counter  corresponding  to  the  item  code 
directory  present  in  ITEMD. 

ITEMC  -  Current  item  code  corresponding  to  the  infor¬ 
mation  record  in  ITMINF  and  the  information 
record  location  given  by  INFOLC. 

ITMDA  -  Record  number  for  the  data  record  contained  in 
ITMDAT  as  offset  from  INFOLC.  This  ITMDA+ 
INFOLC  gives  the  relative  record  number  for 
the  record  in  ITMDAT. 

ITMPNT  -  Sequential  data  point  in  the  current  data 

stream  which  corresponds  to  the  appropriate 
next  data  point  if  DATAIN  is  called  with  the 
continuation  mode  (FSEC  less  than  zero). 

CB, CM  -  Calibration  factors  for  integer  to  floating 
point  conversion  during  retrieval. 

SRATE  -  Calculated  sample  rate  for  the  current  item 
code/counter  pair  data  stream 

LAST  -  Total  number  of  samples  in  the  current  item 
code/counter  pair  data  stream 

I CAL  -  Equals  one  if  the  current  item  code/counter 

pair  data  stream  is  stored  as  calibrated  data 
and  zero  if  the  data  stream  is  stored  as 
uncalibrated  integers. 

NPRMOD  -  indicator  of  partition  access  slots  that  are 
in  use.  1  =  first  slot  taken,  2  =  second 
slot  taken,  3  =  both  slots  taken. 

NPRCRN  -  Indicator  of  source  of  data  in  ICTRD  array. 

1  =  first  slot  partition,  2  =  second  slot 
partition,  0  =  no  data  in  ICTRD. 
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NMASK  -  Number  of  masked  item  codes  listed  in  array 
MASKIT. 

NMPARI  -  Name  of  partition  addressed  through  the  first 
access  slot.  Stored  as  2A4. 

NMPAR2  -  Name  of  partition  addressed  through  the  se¬ 
cond  access  slot.  Stored  as  2A4. 

MASKIT  -  Array  of  masked  item  codes  each  stored  as  a 

4-character  name.  The  first  NMASK  array  loca¬ 
tions  are  occupied. 

ICTRD  -  Array  containing  all  or  a  portion  of  the 
counter  directory. 

ITEMD  -  Array  containing  all  or  a  portion  of  the  item 
code  directory. 

ITMINF  -  Array  containing  the  information  record  for 
the  current  item  code/counter  pair. 

ITMDAT  -  Array  containing  a  data  record  for  the  current 
item  code/counter  pair.  The  particular  data 
record  is  indicated  by  ITMDA. 

/DEFLT/  Default  user  input  matrix  and  general  system  label 

DEFCOM  -  General  system  label.  The  current  date  is 

added  to  this  label  in  STRTUP.  The  label  is 
stored  13A4  with  additional  space  available. 

IDVAL  -  Two-dimensional  array  showing  the  appropriate 

defaults  for  user  entries.  IDVAL(1,N)  controls 
the  nature  of  the  default.  L  =  IDVAL(2,N) 
gives  the  actual  default  value.  The  possible 
values  for  IDVAL(1,N)  are: 

1  =  no  default  allowed 

2  =  standard  keyword  default,  L 

3  =  standard  numeric  default,  IPVAL(L) 

4  =  keyword  default  unless  there  is  a 

previously  entered  value  which  then 
becomes  the  default 

5  =  numeric  default  unless  there  is  a 

previously  entered  value  which  then 
becomes  the  default 

6  =  no  standard  default  but  previous 

entry,  if  any,  becomes  the  default 


154 


IPVAL 


Array  containing  numeric  default  entries 
pointed  to  by  IDVAL. 


/DIRECD/  Provides  provisional  user  command  directives  and 

comment  for  use  in  the  user  interface  while  command 
is  developing. 

IDIRCD  -  Two-dimensional  instruction  matrix  of  user 

interface  entries  which  is  provisional  until 
the  command  step  is  complete.  When  the  step 
is  complete,  this  array  is  copied  to  IDIRCT. 
IDIRCD  is  commonly  equivalanced  to  DIRCD. 

KMMNTD  -  Provisional  comment  which  is  copied  to  KOMMNT 
when  the  COMMENT  command  step  is  complete. 

NKMMCH  -  Number  of  characters  in  the  provisional 
comment,  KMMNTD. 


/DIRECT/  User  interface  communication  block 

IDIRCT  -  Two-dimensional  instruction  matrix  containing 
user  interface  control  values.  Each  instruc¬ 
tion,  as  indicated  in  Table  3,  will  have  one  or 
more  options  and  may  include  a  communicated 
string  or  numeric  value.  For  instruction  N, 
IDIRCT( 1 , N )  contains  the  option  selection  coded 
as  an  integer  value  (which  may  be  negative), 
and  IDIRCT( 2 , N )  contains  any  string  or  numeric 
value  communicated.  Numeric  values  communi¬ 
cated  in  IDIRCT ( 2, N)  are  always  in  floating 
format  and  are  accessed  using  an  equivalent 
REAL  array  which  is  usually  called  DIRECD. 

/DRW/  Block  of  plotting  information 

XMIN  -  Minimum  allowed  X  value  on  plot  in  user  coor¬ 
dinates  . 

DX  -  Increment  in  user  coordinates  of  X  axis  corres¬ 
ponding  to  one  annotated  interval  on  an  X-Y 
plot.  On  a  three-dimensional  plot  (SURFACE  or 
CONTOUR),  DX  corresponds  to  1  inch  in  the  hori¬ 
zontal  direction. 

XH  -  Maximum  absolute  horizontal  position  in  paper 
or  screen  coordinates.  Currently  set  to  7.5 
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XL  -  Minimum  absolute  horizontal  position  in  paper 
or  screen  coordinates.  Currently  set  to  0.0 

YMIN  -  Minimum  allowed  Y  value  on  plot  in  user 
coordinates 

DY  -  Increment  in  user  coordinates  of  Y  axis  corres¬ 
ponding  to  one  annotated  interval  on  an  X-Y 
plot.  On  a  three-dimensional  plot  (SURFACE  or 
CONTOUR),  DY  corresponds  to  1  inch  in  the  ver¬ 
tical  direction. 

YH  -  Maximum  absolute  vertical  position  in  paper  or 
screen  coordinates.  Currently  set  to  10.0 

YL  -  Minimum  absolute  vertical  position  in  paper  or 
screen  coordinates.  Currently  set  to  0.0 

JUNQ  -  Array  which  specifies  a  schedule  for  generation 
of  dashed  lines.  Allowed  values  for  JUNQ  are 
0  thru  9.  When  a  dashed  line  is  generated,  a 
sequence  of  dashes  having  a  length  of  one  tenth 
inch  times  each  integer  in  sequence  is  gener¬ 
ated.  A  gap  of  one- tenth  of  an  inch  is  in¬ 
serted  between  each  dash. 

INSL  -  A  logical  variable.  True  if  point  last  plotted 
was  inside  allowed  plotting  area;  false  other¬ 
wise. 

LRL  -  Not  used 

LHL  -  Not  used 

XOFF  -  Cumulative  X  offsets  from  device  origin  which 
have  been  applied  in  a  frame. 

YOFF  -  Cumulative  Y  offsets  from  device  origin  which 
have  been  applied  in  a  frame. 

NX  -  Number  of  DX  intervals  in  the  allowed  plotting 
area. 

NY  -  Number  of  DY  intervals  in  the  allowed  plotting 
area. 

I GRID  -  If  I GRID  =1,  a  grid  will  be  drawn  for  X-Y 
plots.  If  I GRID  =  0,  the  grid  will  not  be 
drawn. 
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LOGX  -  If  LOGX  =0,  the  X  scale  is  linear.  If  LOGX 

is  greater  than  zero,  the  X  scale  is  logarith¬ 
mic  with  LOGX  cycles. 

LOGY  -  If  LOGY  =  0,  the  Y  scale  is  linear.  If  LOGY 

is  greater  than  zero,  the  Y  scale  is  logarith¬ 
mic  with  LOGY  cycles . 

Z SCALE  -  Scaling  factor  applied  to  the  plot.  DX/ZSCALE 
corresponds  in  user  coordinates  to  one  inch 
in  the  X  direction,  DY/ZSCALE  to  one  inch  in 
the  Y  direction.  For  X-Y  plots,  ZSCALE  =  .7. 
For  3-D  plots,  ZSCALE  =  1.0 

NOTICS  -  If  NOTICS  =  1,  no  tic  marks  will  be  drawn  for 
the  X  and  Y  scales.  If  NOTICS  =  0,  tic  marks 
will  be  drawn. 

MODFUL  -  Set  to  one  for  Tektronix  full- screen  mode,  set 
to  zero  otherwise. 

DPLOFF  -  Vertical  offset  for  second  set  of  axes  using 

DPLOT  option.  Set  to  this  offset  while  curves 
are  being  drawn  on  the  second  set  of  axes. 

Set  to  zero  otherwise. 

IDPLOF  -  Set  to  one  if  two  sets  of  axes  are  present. 

Set  to  zero  otherwise. 

NCCX  -  Set  to  zero  for  a  continuing  curve.  Set  to 
one  if  the  next  curve  segment  that  is  drawn 
will  start  fresh. 

ISEQ  -  Current  sequence  position  for  the  curve  that 

is  being  drawn  in  the  dash-dot  sequence  speci¬ 
fied  by  JUNQ. 

DONE  -  Amount  of  the  current  dash  or  gap  that  has  been 
drawn  in  the  current  curve. 

ZLENX  -  Width  in  screen  or  paper  units  (e.g.,  inches) 

of  each  dash  or  gap  in  the  currently  used  dash- 
dot  sequence. 


/DRW2/  Common  for  double-scale  plots  (DPLOT  option). 

YMIN22  -  Equivalent  top  axes  variable  (for  the  DPLOT 
option)  to  the  YMIN  variable  when  the  DPLOT 
option  is  not  used. 
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DY22 


Equivalent  to  DY  for  the  top  axes  when  DPLOT 
is  used. 

YH22  -  Equivalent  to  YH  for  the  top  axes  when  DPLOT 
is  used. 

YL22  -  Equivalent  to  YL  for  the  top  axes  when  DPLOT 
is  used. 

INSL22  -  Equivalent  to  INSL  for  the  top  axes  when  DPLOT 
is  used. 

YPLUS2  -  Vertical  offset  from  lower  set  of  axes  to  upper 
set  when  DPLOT  is  used. 

XL22  -  Equivalent  to  XL  for  the  top  axes  when  DPLOT  is 
used. 


/ENTOPT/  Entry  options  and  tree  structure  for  user  command 
steps 

IENTOP  -  Array  containing  sequences  of  entry  options 

coded  by  keyword  number.  If  a  sequence  begins 
at  location  'I'  then: 

IENTOP(I)  =  Entry  number  according  to  allowed 
entry  list. 

IENTOP( 1+1 )  =  K  =  Number  of  entry  options. 
IENTOP ( 1+2 )  thru  IENTOP ( I+l+K)  =  Entry  options 
coded  by  keyword.  If  IENTOP( I+l+K) 
-  1000,  the  option  is  a  four  char¬ 
acter  string.  If  IENTOP( I+l+K)  = 

-L  is  less  than  zero  then  the  op¬ 
tion  is  a  number  with  allowed  range 
between  RANGOP(L)  and  RANGOP(L+l). 

NPOINT  -  Array  containing  the  tree  structure  for  user 
input  entries.  Significance  of  values  is: 

NPOINT(l,N)  =  position  in  LWORDS  giving  HELP 
string  for  this  entry. 

NP0INT(2,N)  =  IENTOP  position  giving  allowed 
option  for  this  entry. 

NPOINT(3,N)  =  L,  points  to  subsequent  entry 
positions.  If  L  greater  than  zero, 

L  gives  next  N  subsequent  entry.  If 
L  =  0,  command  is  complete.  If  L 
less  than  zero,  -L  points  to  sequence 
in  LISTP  with  each  LISTP  value  cor¬ 
responding  to  an  IENTOP  option  and 
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giving  a  new  NPOINT  position  for  the 
subsequent  entry. 


LISTP  -  Array  of  pointers  as  explained  under  NPOINT. 

RANGOP  -  Ranges  for  numerical  entries  as  explained  under 
IENTOP 


/FILES/  Input  and  output  file  numbers. 


NRPS  -  Master  file,  file  number  is  normally  set  to 
one . 

NREA  -  System  input  file,  file  number  is  normally 
five . 


NWRI 

NSC1 

NSC2 

NALl 

NAL2 

NCSG 

NALG 

NED  I 

NINF 

NPRI 


System  output  file,  file  number  is  normally 
six. 

Direct  access  file  corresponding  to  SCFl  when 
the  scratch  files  are  not  concentrated  on  one 
file.  File  number  is  normally  seven. 

Direct  access  file  corresponding  to  SCF2  when 
the  scratch  files  are  not  concentrated  on 
one  file.  File  number  is  normally  eight. 

Sequential  alias  for  NSCl.  File  number  is 
normally  nine. 

Sequential  alias  for  NSC2 .  File  number  is 
normally  ten. 

Direct  access  file  corresponding  to  temporary 
scratch  file.  Alternatively,  SCFl,  SCF2 ,  SCF3 , 
and  the  temporary  scratch  could  be  concentrated 
on  this  file.  File  number  is  normally  eleven. 

Sequential  alias  for  NSCG.  File  number  is 
normally  twelve. 

Direct  access  file  for  storage  of  command 
sequence  blocks.  File  number  is  normally 
thirteen. 

Info  file.  File  number  is  normally  fourteen. 

File  reserved  for  printout.  Currently  an 
alias  for  NWRI . 
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NPTM 


-  File  for  temporary  storage  of  the  last  plot 
frame  drawn  when  the  COPY  mode  was  set. 

NPCP  -  File  for  storage  of  plot  frame  copies  for 

later  replotting  on  an  off-line  plot  device. 


/FILLRC/  Contains  the  parameters  which  describe  the  digital 
filter  transfer  function  in  Z-transform  space.  In 
particular,  the  transfer  function  H(Z)  is  given  by 


H(Z) 


N 

K=1 


AD, 


1  +  Z_1Bl, 


M 


K=1 


AIDk  +  AIlk  Z 
1  +  BIlkZ-1  +  BI2RA 


where  the  common  block  variables  AO,  Bl,  AIO,  All, 
BIl ,  and  BI2  are  given  by  the  equation.  The  vari¬ 
able  NRE  is  related  to  the  number  of  real  poles  and 
is  given  by  N  in  the  equation.  Similarly,  NCPLX  is 
related  to  half  the  number  of  complex  poles  and  is 
given  by  M  in  the  equation.  NENDPT  is  used  for 
double  filtering  operations  and  gives  the  number  of 
values  that  may  be  discarded  at  the  end  of  the  time 
interval . 


/GENSCR/  Information  and  pointers  for  temporary  scratch  file. 

NEXCLG  -  Next  available  record  number  for  storage  of 

data  identified  by  column  where  a  single  row  is 
present. 

NEXRWG  -  Next  available  record  number  for  storage  of 
data  identified  by  row  number  where  multiple 
rows  are  present. 

IGRWLC  -  Two-dimensional  array  giving  the  starting  re¬ 
cord  number  in  the  temporary  scratch  file  for 
data  from  a  row  element  corresponding  to  the 
second  subscript  value.  The  first  subscript 
corresponds  to  the  top  and  bottom  double-row 
elements  for  subscript  values  of  one  and  two, 
respectively. 
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*sr~ 


IGRWLN  - 


IGCLLC  - 


IGCLLN  - 


LNLBTP  - 


Two-dimensional  array  giving  the  length  in  data 
samples  for  the  stored  time  history  from  a  row 
element  corresponding  to  the  second  subscript. 
The  first  subscript  corresponds  to  the  top  and 
bottom  double-row  elements  for  subscript  values 
of  one  and  two  respectively. 

Two-dimensional  array  giving  the  starting  re¬ 
cord  number  for  data  from  a  column  element  cor¬ 
responding  to  the  second  subscript.  The  first 
subscript  corresponds  to  the  top  and  bottom 
double-row  elements  for  subscript  values  of  one 
and  two,  respectively. 

Two-dimensional  array  giving  the  length  in  data 
samples  for  the  stored  time  history  from  a  col¬ 
umn  element  corresponding  to  the  second  sub¬ 
script.  The  first  subscript  corresponds  to  the 
top  and  bottom  double-row  elements  for  sub¬ 
script  values  of  one  and  two,  respectively. 

Three-dimensional  array  giving  labels  for  anno¬ 
tation  of  lines  on  multiple  line  plots.  The 
first  subscript  is  dimensioned  to  three  and 
corresponds  to  three  words  on  twelve  allowed 
characters  for  the  label  (3A4).  The  second 
subscript  corresponds  to  the  top  and  bottom 
double-row  element  for  values  of  one  and  two, 
respectively.  The  third  subscript  corresponds 
to  row  or  column  position.  If  multiple  columns 
are  present,  this  subscript  corresponds  to 
column  position.  Otherwise,  the  subscript 
corresponds  to  row  position. 


/HLPWDS/  Strings  and  control  value  for  generation  of  HELP 
prompting  for  the  user. 

L WORDS  -  Array  of  strings  used  in  generation  of  HELP 

messages.  There  is  one  string  for  each  avail¬ 
able  entry  option.  The  word  immediately 
preceding  each  string  is  an  integer  giving  the 
length  of  the  string  in  characters.  The 
strings  are  stored  in  nA4  format. 

I HELP  -  If  I HELP  =  1,  then  HELP  is  active.  If  I HELP  = 
0,  then  HELP  is  not  active. 

/INFGRP/  Block  for  storage  of  information  provided  by  an 
Info  file  group. 
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MXGLGP 


MXRWGP 

KEYWDT 

KEYWDB 

NKEYS 

NMCURR 

NKPOUT 


Number  of  column  elements  for  the  group. 

Number  of  row  elements  for  the  group. 

Four-character  keyword  corresponding  to  the 
top  double-row  element  for  the  group. 

Four-character  keyword  corresponding  to  the 
bottom  double-row  element  for  the  group. 


Set  to  one  if  top  double-row  element  present, 
set  to  two  if  both  double-row  elements  present. 

Not  used. 


NKPOUT  =  0  if  both  double-row  elements  wanted. 
NKPOUT  =  1  if  top  double-row  element  wanted  or 
NKPOUT  =  2  if  bottom  double-row  element  wanted 


ROWPGP  -  Array  of  geometric  row  positions. 

COLPGP  -  Array  of  geometric  column  positions. 

MXITBM  -  Three-dimensional  array  giving  four-character 
item  codes  for  row,  column,  double-row  element 
intersections.  The  first  index  gives  the 
double-row  element  where  top  and  bottom  corres¬ 
pond  to  index  values  of  one  and  two  respec¬ 
tively.  The  second  index  gives  the  column 
element  number  and  the  third  index  gives  the 
row  element  number. 


POSMX  -  Three-dimensional  array  giving  a  third  geomet¬ 
ric  position  parameter  (e.g.,  vertical  chord 
position)  for  the  physical  location  of  sensors 
corresponding  to  each  item  code.  The  first 
index  gives  the  double-row  element,  the  second 
index  gives  the  column  element,  and  the  third 
index  gives  the  row  element. 


/KARD/  Block  for  communicating  user  input  lines  for  scan  and 
return  of  information  about  the  lines. 

ILOC  -  An  array  corresponding  to  the  user  entries  in 
the  line  ICHAR.  ILOC(I)  corresponds  to  the 
I'th  entry.  If  ILOC(I)  is  positive,  then  the 
I'th  entry  is  a  string  beginning  at  character 
position  ILOC(I).  If  ILOC(I)  is  zero,  then  the 
I'th  entry  is  a  null.  If  ILOC(I)  is  negative, 
then  the  I'th  entry  is  numeric  and  -ILOC(I)  is 
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the  index  in  the  XNUM  array  for  the  numeric 
value. 

INUM  -  An  array  corresponding  to  the  user  entries  in 
the  line  ICHAR.  INUM(I)  corresponds  to  the 
I'th  entry.  If  the  I'th  entry  is  a  string, 
then  INUM( I )  gives  the  number  of  characters 
in  the  entry. 

XNUM  -  An  array  giving  numeric  values  extracted  from 
ICHAR  as  explained  under  ILOC. 

ICHAR  -  An  array  of  characters  forming  one  line  of 

user  input.  The  characters  are  stored  in  the 
format  72A1. 


/KWCNTL/  Gives  prescribed  keywords  to  check  that  data  on 
scratch  file  to  be  used  on  input  are  appropriate 
for  certain  derivations. 

KWMI1  -  Prescribed  keyword  for  the  top  double-row  ele¬ 
ment  input  for  a  process. 

KWMI2  -  Prescribed  keyword  for  the  bottom  double-row 
element  input  for  a  process . 

NKWM  -  Number  of  prescribed  double-row  elements  re¬ 
quired  for  process. 


/LABELS/  Plot  labels.  Most  of  these  labels  are  extracted 
from  the  information  record  preceding  each  data 
stream  in  the  Master  File. 

IDATE  -  Date  the  data  stream  was  recorded.  The  format 
is  2A4 .  Currently  not  set  or  used. 

ITIME  -  Time  of  day  the  data  stream  was  recorded.  The 
format  is  2A4.  Currently  not  set  or  used. 

ICLABL  -  Current  counter  in  string  format  A4,A2. 

ITEML  -  Item  code  in  format  A4. 

LUSQRD  -  Indicator  for  modification  of  input  units 

labe(s)  to  achieve  correct  output  units  labels. 
Values  are 

-3  =  cross  process  with  normalized  units. 
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I MODEL  - 
ISHIPN  - 
ISHPGW  - 
IMODLC  - 
ICGLNG  - 
ICGCOD  - 
IFLTNM  - 
I UNITS  - 
ITEMDS  - 

L INLAB  - 


-2  =  cross  process  with  units  per  herz. 
-1  =  cross  process 
0  =  no  change 

1  =  square  first  units  label 

2  =  square  units  label  per  hertz 

Ship  model  in  format  A4,A2. 

Ship  number  in  format  A4,A2. 

Ship  gross  weight  in  format  A4,A2. 

Ship  model  code  in  format  2A4. 

Ship  longitudinal  CG  in  format  A4,A2. 

Ship  CG  code  in  format  A2. 

Flight  number  in  format  A4,A2. 

Dependent  variable  units  in  format  2A4. 

Discription  of  dependent  variable  in  format 
7A4 ,  A2 . 

Dependent  variable  label  for  multiple  line 
plots . 


IUNIT2  -  Unit  label  for  second  input  function  for  pro¬ 
cesses  that  require  two  inputs  (e.g.,  cross¬ 
correlation)  . 

ITEMD2  -  Data  label  for  second  input  function  for  pro¬ 
cesses  that  require  two  inputs  (e.g.,  cross¬ 
correlation)  . 

/LEDIT/  Control  and  information  values  for  command  sequence 
storage  on  retrieval. 

LED  -  Current  command  sequence  (EDIT)  mode. 

0  =  normal  mode 

1  =  EDIT/NEW  mode 

2  =  BUILD  mode 

3  =  EXECUTE  mode 

NAMFIL  -  Four-character  name  of  the  current  command 
sequence  block  being  edited,  built,  or  exe¬ 
cuted. 


164 


NUMFIL  -  Pointer  to  the  current  block  in  the  command 
sequence  file  being  generated  or  read. 

LOCFIL  -  Pointer  to  the  current  line  in  the  command 
sequence  file  being  generated  or  read. 

LEDLIN  -  Total  number  of  command  lines  available  on 
the  command  sequence  file.  If  LEDLIN  =  -1 
then  the  EDIT  capability  is  not  available. 

LEDLRC  -  Number  of  direct  access  records  in  a  command 
sequence  block. 

LNPREC  -  Number  of  command  lines  that  can  be  stored 
in  a  command  sequence  block. 

LWDPLN  -  Number  of  words  allotted  to  each  command  line 
where  four  characters  are  stored  in  each  word. 

LARGCH  -  Set  to  character  that  specifies  an  execution 
argument  or  parameter.  Currently  set  to  1H%. 

LMXARG  -  Maximum  number  of  arguments  that  can  be  passed 
during  execution  of  a  command  sequence. 

MXARGC  -  Maximum  number  of  characters  that  can  be  passed 
in  one  command  sequence  argument. 

NLNTMP  -  Number  of  characters  available  on  the  temporary 
character  line,  LNTEMP . 

NLARG  -  Array.  Each  variable  contains  the  number  of 
characters  stored  for  the  corresponding  index 
of  LARG. 

LARG  -  Two-dimensional  array  of  parameter  inputs.  Se¬ 
cond  index  corresponds  to  NLARG  index.  String 
is  stored  over  multiple  values  of  the  first 
index . 

/MASS/  Offsets,  pointers  and  check  values  for  the  direct 
access  routines  RMS,  WMS,  FMS. 

NDEVS  -  Dimension  for  the  arrays  in  this  block. 

MDEV  -  Array  giving  direct  access  I/O  file  numbers. 

MDEV(I)  is  the  I/O  file  number  for  pseudo¬ 
device  I. 
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MOFF 


Array  giving  offsets  to  arrive  at  correct 
direct  access  record  numbers.  For  pseudo¬ 
device  I,  MOFF ( I )  should  be  added  to  the  re¬ 
quested  record  number  to  arrive  at  the  proper 
record  number  for  direct  access  device  MDEV(l). 

MLEN  -  Array  giving  lengths  of  the  pseudo-devices. 

MLEN(I)  is  the  number  of  direct  access  records 
available  to  pseudo-device  I . 

MTOT  -  Array  giving  total  length  of  direct  access 

devices.  MTOT(I)  is  the  total  number  of  direct 
access  records  available  on  direct  access  file 
MDEV( I ) . 

MSIZ  -  Array  giving  record  size  in  four-byte  words 

for  each  pseudo-device.  MSIZ(I)  is  the  record 
size  for  pseudo-device  I. 


/MDEP/  Computer,  installation,  or  hardware  dependent  values 

I BAUD  -  Data  communication  rate  in  characters  per 

second  between  the  Tektronix  graphics  terminal 
and  the  computer. 

IPLDEV  -  Plotting  device 

1  =  Calcomp  or  incremental  plotter 

calcomp  emulation  (e.g.,  DP-1) 

2  =  Other  device 

3  =  Tektronix 

PENBGX  -  Deviation  in  X  of  the  initial  positioning  of 
the  incremental  plotter  pen  from  the  standard 
starting  position  which  is  1/2-inch  to  the 
right  of  the  perforations  for  DP-1  paper. 

PENBGY  -  Deviation  in  Y  of  the  initial  positioning  of 
the  incremental  plotter  pen  from  the  standard 
starting  position  which  is  the  1/2-inch  above 
the  perforations  at  the  bottom  of  the  page. 

PLTWID  -  Total  width  in  inches  of  a  page  of  plot  for 
determining  spacing  of  frames.  This  value 
does  not  affect  the  size  of  the  plot  frames 
as  drawn. 

NPBLKS  -  Number  of  blocks  allowed  in  a  page  of  printout 
where  each  block  contains  five  data  lines  and 
one  blank  line. 


TWARN 


Number  of  CPU  seconds  which  will  be  consumed 
before  the  computer  begins  to  issue  time 
warnings  to  the  user. 


ITSTEP  -  Control  value  for  printout  of  command  step  exe¬ 
cution  times.  If  ITSTEP  =  1,  the  times  will  be 
printed.  If  ITSTEP  =  2,  the  times  will  not  be 
printed. 

I DONE  -  Variable  indicating  whether  the  scratch 

files  are  already  initialized.  If  IDONE  = 

1,  then  the  files  were  initialized  before  the 
program  run  began.  Otherwise,  the  files 
must  be  initialized  at  the  start  of  the  run. 


/MENBUF/  Buffer  block  for  menu  generation 
IX  -  Array  for  generation  of  menus 


/MLABLS/  Block  for  output  labels. 


RDLBL 

RULBL 

RTLBL 

CDLBL 

CULBL 

CTLBL 

LTOPON 


Row  axis  label  of  up  to  16  characters  stored 
4A4 . 

Abbreviated  row  axis  label  of  up  to  eight 
characters  stored  2A4. 

Label  for  a  geographic  feature  near  the  lowest 
valued  row  position.  The  label  may  contain  up 
to  16  characters  stored  4A4. 

Column  axis  label  of  up  to  16  characters 
stored  4A4. 

Abbreviated  column  axis  label  of  up  to  eight 
characters  stored  2A4. 

Label  for  a  geographic  feature  near  the  lowest 
valued  column  position.  The  label  may  contain 
up  to  16  characters  stored  4A4. 

Set  to  one  if  a  top  double-row  element  origin 
label  is  present  in  LBDTOP.  Set  to  zero  other¬ 
wise  . 


LBOTON  -  Set  to  one  if  a  bottom  double-row  element  origin 
label  is  present  in  LABBOT.  Set  to  zero  other¬ 
wise. 
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LBDTOP  -  Label  for  origin  of  top  double-row  element,  if 
any.  5A4  format. 

LABBOT  -  Label  for  origin  of  bottom  double-row  element, 
if  any.  5A4  format. 

LABGEN  -  General  label  for  independent  variable(s). 

This  label  is  entered  when  a  derivation  is 
performed  or  multiple  items  are  used  from  an 
Info  file.  Stored  as  7A4,A2  format. 

IPCTL  -  Control  for  counter  label  ICLABL. 

1  =  Single  counter  in  output 

2  =  Multiple  counters  in  output 

IPCLBL  -  Counter  label.  Contains  counter  in  string  form 
for  single  counter  output  or  the  string  'MULTI¬ 
PLE'  for  multiple  counter  output. 

LBCEX1  -  Control  for  row,  column,  or  time  label.  The 
allowed  values  are: 

1  =  Column  position  label  in  Info  file 

supplied  coordinates 

2  =  Column  position  label  as  provided 

by  the  user 

3  =  Row  position  label  in  Info  file 

supplied  coordinates 

4  =  Time  associated  label 

5  =  No  label 

LABEX1  -  Label  as  controlled  by  LBCEXl.  LABEXl(l)  con¬ 
tains  the  numeric  value  while  LABEX1(2)  and 
LABEX1 ( 3 )  contain  a  string  label.  XLBCEX  is 
normally  equivalenced  to  LABEX1. 


/MODES/  Operating  modes  for  the  program. 

MODEZ  -  Batch/interactive  mode  selection. 

1  =  Batch 

2  =  Interactive 

3  =  Interactive  graphics 

MODSCN  -  Scan  mode  for  user  input. 

0  =  Normal 

1  =  Scan  for  line  errors  only 
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I QUICK  -  Set  to  one  for  QUICK  plot  mode.  Set  to  zero 
for  SLOW  plot  mode. 

ICPSET  -  Set  to  one  for  COPY  mode.  Set  to  zero  for 
NOCOPY  mode. 

ICPRLG  -  Set  to  one  if  the  COPY  mode  has  ever  been  set 
in  the  current  run.  Set  to  zero  otherwise. 

NCPRES  -  Number  of  PLOT  call  records  stored  on  the 

temporary  plot  storage  file.  Set  to  zero  if 
no  frame  has  been  stored  or  if  NOCOPY  mode 
is  set. 

/PRCOM/  Common  for  process  communication. 

KOUNTR  -  Current  counter  stored  as  an  integer 

KITEM  -  Current  item  code  stored  in  A4  format. 

TIMOFF  -  Not  used 

RECLEN  -  Not  used 

TINT  -  Sample  interval 

NPTS  -  Number  of  points  in  output  record. 

XSTRTV  -  Starting  independent  variable  value. 

XINTVL  -  Independent  variable  sampling  interval. 

NMAXVL  -  Number  of  samples  in  processing  record. 

PMINOR  -  Not  used 

INDEPN  -  First  independent  variable  indicator 

1  =  time 

2  =  frequency 

3  =  harmonic  number 

LTYPE  -  Pointer  to  proper  HLABLS  label 

LXAX  -  Pointer  to  proper  XLABLS  label 

KEYWDl  -  Top  double-row  element  keyword  for  output  data 
stream. 
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/r/ 


MODINP 


MODSCR 


MODROT 


2  =  Same  as  ' 1  *  but  next  input  line 
is  already  present  in  I CHAR 

Command  input  source. 

0  =  System  input 
1  =  Edit  file 

Scratch  file  mode.  If  MODSCR  =  1,  all  scratch 
files  are  concentrated  on  the  device  with  the 
number  given  by  NSCG.  If  MODSCR  =  0,  each 
scratch  file  is  located  with  a  different  file 
number  given  by  NSCl,  NSC2  and  NSCG. 

Rotor  selection  mode.  If  MODROT  =  1,  the  main 
rotor  is  selected.  If  MODROT  =  2,  the  tail 
rotor  is  selected. 


/PARMS/  Common  to  hold  parameters  passed  to  the  program  from 
the  computer  system  command  language. 

IPARCN  -  Number  of  characters  that  were  transferred. 

IPARMS  -  Array  to  hold  the  characters  that  were  passed. 


/PLABLS/  Stored  labels  and  information  for  output. 


HLABLS 


XLABLS 


LINSKP 


ULABLS 


An  array  containing  eight  labels  to  be  added 
to  the  beginning  of  the  dependent  variable 
description.  Each  label  has  the  format  5A4. 

An  array  containing  seven  possible  X-axis 
labels.  Each  label  is  stored  in  the  format 
6A4 . 

Array  of  integers  which  provide  the  schedules 
for  dashed  lines  which  are  later  stored  in 
JUNQ(/DRW/).  From  a  LINSKP  entry,  each  decimal 
digit  is  transferred  to  one  JUNQ  value.  Al¬ 
lowed  values  for  each  LINSKP  entry  are  0  through 
9999. 

First  independent  variable  unit  labels. 


/PLSPCL/  Common  for  control  of  the  special  plotting  modes 
QUICK  and  COPY. 
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KEYWD2  -  Bottom  double-row  element  keyword  for  output 
data  stream. 

KEYQl  -  Top  double-row  element  keyword  for  input  data 
stream. 

KEYQ2  -  Bottom  double-row  element  keyword  for  input 
data  stream. 

P0S2  -  Two  word  array  giving  the  third  or  minor  posi¬ 
tion  value  for  the  current  item  code(s)  in 
process .  The  first  array  value  corresponds  to 
the  top  double-row  element  and  the  second  array 
value  corresponds  to  the  bottom  double-row 
element. 


/SCRTBL/  Block  for  storage  of  directory  blocks  of  the  input 
and/or  output  scratch  files. 

ISCOIN  -  For  scratch  file  output.  Set  to  zero  if  the 
scratch  file  has  not  been  addressed  (SCADD 
call)  with  a  data  stream  that  was  not  missing. 
Set  to  one  if  the  scratch  file  has  been  ad¬ 
dressed  with  a  data  stream  that  was  not  missing. 

ISCLIM  -  For  scratch  file  output.  Set  to  zero  if  the 

scratch  file  has  not  been  addressed  with  a  data 
stream  that  was  not  missing  for  the  current 
column.  Set  to  one  otherwise. 

XSCRT  -  Array  for  storage  of  directory  blocks  of  the 
input  and/or  output  scratch  files.  The  first 
half  of  XSCRT  holds  directory  data  for  the  de¬ 
signated  output  scratch  file  (if  any).  The 
second  half  of  XSCRT  holds  directory  data  for 
the  designated  input  scratch  file. 


/SCRTCH/ 

IOFFXB  -  Offset  in  words  to  the  beginning  of  scratch 
file  output  information  stored  in  XBUFF 
(/BUFFER/) 

IRPOFF  -  Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  row  position  storage  for  output  to  a  scratch 
file . 

ICPOFF  -  Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  column  position  storage  for  output  to  a 
scratch  file. 
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KDROFF 


Offset  in  words  from  XBUFF(l)  to  the  beginning 
of  the  data  directory  buffer  to  scratch  file 
ouput. 


NPREC  - 

ICOLM  - 

INILOC  - 

INITBG  - 

MXRWSC  - 

MXCLSC  - 

MSCLOC  - 

IPANAV  - 

ICURR  - 

IXBINP  - 

ICURIP  - 

IXDIRI  - 

IXDAT1  - 


Number  of  data  directory  blocks  in  a  scratch 
file  record. 

Array  giving  the  current  column  number  being 
worked  on  for  each  scratch  file. 

First  available  data  record  for  either  scratch 
file. 

Indicates  whether  scratch  files  have  been  ini¬ 
tialized.  Set  to  zero  if  not.  Set  to  scratch 
file  size  in  records  if  so. 

Maximum  number  of  row  positions  allowed  for  a 
scratch  file. 

Maximum  number  of  column  positions  allowed  for 
a  scratch  file. 

Array  giving  the  next  available  data  storage 
record  for  each  scratch  file. 

Array  which  gives  the  multiple  storage  condi¬ 
tion  for  each  scratch  file  where  index  =  1  is 
SCFl  and  index  =  2  is  SCF2 .  If  IPANAV(I)  =  0 
then  all  the  data  stored  on  the  scratch  file 
was  written  in  one  KEEP  command  step.  If 
IPANAV  ( I )  =  1  then  the  data  stored  on  the 

scratch  file  was  written  with  one  KEEP  and  one 
or  more  ADD  command  steps. 

Data  directory  record  currently  in  XBUFF  for 
the  scratch  file  currently  being  written  on. 

Offset  in  words  to  the  beginning  of  scratch 
file  input  information  stored  in  XBUFF (/BUFFER/) 

Data  directory  record  currently  in  XBUFF  for 
the  scratch  file  currently  being  read  from. 

XBUFF  offset  to  directory  record  buffer  area 
for  scratch  file  input. 

XBUFF  offset  to  data  record  buffer  area  for 
scratch  input. 
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IRPOFX  -  XBUFF  offset  to  row  position  storage  for 
scratch  file  input. 

ICPOFX  -  XBUFF  offset  to  column  position  storage  for 
scratch  file  input. 

MODE12  -  Indicator  for  one  or  both  double-row  elements. 

MODE 12  =  1  implies  one  double-row  element  while 
MODE 12  =  2  implies  both  double-row  elements. 

ROWPOS  -  Array  which  contains  physical  row  element 
positions. 


COLPOS 

MAXCOL 


Array  which  contains  physical  column  element 
positions . 

Number  of  column  positions  present. 


MAXROW  -  Number  of  row  positions  persent. 


ZMAX 

ZMIN 

LABCNT 


POSUP 


POSDN 


Maximum  data  value  present  in  a  row/column 
pair  time  history. 

Minimum  data  value  present  in  a  row/column 
pair  time  history. 

Label  control  value  for  generation  of  LINLAB 
(in  /LABELS/)  when  input  is  from  a  scratch 
file  or  multiple  items  are  specified  by  an 
Info  file  group.  Allowed  values  are: 

1  =  Column  position  label 

2  =  Column  label  using  user-supplied 

coordinates 

3  =  Row  position  label 

4  =  Time  related  label 

5  =  Originally  saved  label 

Array  of  minor  positions  (e.g.,  vertical  posi¬ 
tion  on  chord  section)  corresponding  by  index 
to  the  row  elements,  and  also  to  the  top 
double-row  element. 

Array  of  minor  positions  (e.g./vertical  posi¬ 
tion  on  chord  section)  corresponding  by  index 
to  the  row  elements,  and  also  to  the  bottom 
double-row  element. 
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/SINGIF/  Information  extracted  from  the  initial  group  of  the 
Info  file. 

NUNIN  -  Number  of  input  unit  conversion  specifications 
that  are  currently  stored  in  common  (the  input 
unit  conversion  capability  is  not  yet  imple¬ 
mented)  . 

NUMOUT  -  Number  of  output  unit  conversion  specifications 
that  are  currently  stored  in  common. 

MOREIN  -  Info  File  line  number  where  more  input  unit 

conversion  specifications  begin  (the  input  unit 
conversion  capability  is  not  yet  implemented). 
Set  to  zero  if  none. 

MOROUT  -  Info  File  line  number  where  more  input  unit  con¬ 
version  specifications  begin.  Set  to  zero  if 
none . 

NGRUPS  -  Number  of  group  names  and  starting  lines  num¬ 
bers  stored  in  IGRUP  and  IGRPLC. 

MORGRP  -  Info  File  line  number  for  the  line  just  before 
the  first  geometric  group  that  is  not  recorded 
in  IGRUP  and  IGRPLC.  Thus,  MOREGRP  is  the  num¬ 
ber  of  Info  File  lines  that  are  skipped  before 
the  next  Info  File  group  is  read. 

MSCAND  -  Initially  zero.  Reset  to  one  at  the  end  of 
the  first  successful  call  to  the  INFRED  pro¬ 
gram.  This  variable  indicates  whether  the 
Info  File  geometric  groups  have  been  scanned 
for  correct  format  with  a  MENU/INFO/  call. 

KEYWRD  -  Array  of  four-character  keywords  which  give 

the  meaning  for  the  corresponding  item  codes. 

ITEMK  -  Two-dimensional  array  of  item  codes  which 
correspond  by  the  first  index  of  the  array 
to  the  KEYWRD  with  the  same  index. 

VALUES  -  Two-dimensional  array  of  numeric  values  which 
correspond  by  both  indices  to  the  item  codes 
in  ITEMK. 

IGRUP  -  Array  of  geometric  group  names  in  the  Info 

File  that  have  corresponding  locations  stored 
in  IGRPLC.  The  group  names  are  contiguous  at 
the  bottom  of  IGRUP  with  unused  space  at  the 
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top.  The  four-character  group  names  are  stored 
in  A4  format. 

IGRPLC  -  Array  of  group  locations  in  the  Info  File  that 
correspond  by  index  to  the  group  names  in  IGRUP. 
The  values  given  are  the  number  of  Info  File 
lines  that  should  be  skipped  to  reach  the  first 
line  of  an  Info  File  group. 

UNCNSL  -  Array  of  unit  conversion  slope  factors.  Factors 
correspond  by  index  to  the  unit  labels  in  IUNCNV. 

UNCNIN  -  Array  of  unit  conversion  Y-intercept  terms. 

Terms  correspond  by  index  to  the  unit  labels  in 
IUNCNV. 

IUNCNV  -  Array  of  unit  conversion  unit  labels.  The  se¬ 
cond  index  corresponds  to  the  indices  of 
UNCNSL  and  UNCNIN.  The  first  index  is  di¬ 
mensioned  to  six.  The  first  three  values 
correspond  to  the  original  unit  label.  The 
last  three  values  correspond  to  the  converted 
unit  label. 

/SIZES/  Various  fixed  numeric  values  for  the  program. 

IBFSIZ  -  Size  in  words  of  the  XBUFF  scratch  data  area. 

IMRSIZ  -  Size  in  words  of  a  Master  File  record. 

ISCSIZ  -  Size  of  the  scratch  files  in  records. 

ISRSIZ  -  Size  in  words  of  a  scratch  file  record. 

ISPSIZ  -  Size  of  the  scratch  files  in  records  when  all 
scratch  file  pseudo-devices  are  assigned  to 
the  same  I/O  file  number. 

ICOLMS  -  Number  of  characters  allowed  in  a  user  input 
line . 

INCTEK  -  Vertical  raster  spaces  required  for  each 
character  line  printed  on  the  Tektronix. 

ICOMSZ  -  Number  of  characters  allowed  in  the  user 
comment  line. 

NDIRCS  -  Number  of  user  entry  options  in  the  user  inter¬ 
face  output  matrix,  IDIRCT. 
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IBIG  -  A  large  integer  for  use  as  a  dummy  limit  for 
DO  loops . 

MENBSZ  -  Size  in  words  of  the  IX  scratch  area  for  the 
menu  generation  routines. 

IDB1SZ  -  Size  of  the  initial  part  of  the  scratch  file 
directory. 

ICLDSZ  -  Size  in  words  of  a  scratch  file  column 
directory  block. 

IDBLKZ  -  Size  in  words  of  a  data  directory  block. 

NKV  -  Number  of  words  of  keyword  information  held 

by  the  routine  PROSET  for  each  process  option. 

NKEYSD  -  Maximum  number  of  keywords  allowed  for  the 
initial  group  of  the  Info  file. 

NITMSD  -  Maximum  number  of  item  codes  which  may  be 

associated  with  each  keyword  in  the  initial 
group  of  the  Info  file. 

ICOLIF  -  Maximum  number  of  character  positions  available 
for  one  line  of  the  Info  file. 

MAXATT  -  Maximum  number  of  values  for  each  of  the 
attached  parameters. 

INCLMS  -  Maximum  number  of  character  positions  for  a 
line  in  the  Info  file. 

NCONRW  -  Specified  number  of  rows  for  final  output 

matrix  for  generation  of  a  contour  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

NCONCL  -  Specified  number  of  columns  for  final  output 
matrix  for  generation  of  a  contour  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

NCNRW1  -  Array  giving  the  specified  number  of  rows  for 

final  output  matrix  for  generation  of  a  contour 
plot  when  the  independent  variables  include 
the  first  dimension.  When  the  plot  format  is 
cylindrical,  the  first  array  value  is  used. 

When  the  plot  format  is  rectangular,  the 
second  array  value  is  used. 
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NCNCL1  -  Array  similar  to  NCNRWl  giving  the  specified 
number  of  columns  for  the  final  output  matrix 
for  generation  of  a  contour  plot. 

NSURRW  -  Specified  number  of  rows  for  final  output 

maxtrix  for  generation  of  a  surface  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions . 

NSURCL  -  Specified  number  of  columns  for  final  output 
matrix  for  generation  of  a  surface  plot  when 
the  independent  variables  are  the  third  and 
second  dimensions. 

NSRRWl  -  Array  giving  the  specified  number  of  rows  for 
the  final  output  matrix  for  generation  of  a 
surface  plot  when  the  independent  variables 
include  the  first  dimension.  When  the  plot 
format  is  cylindrical,  the  first  array  value 
is  used.  When  the  plot  format  is  rectangular, 
the  second  array  value  is  used. 

NSRCL1  -  Array  similar  to  NSRRWl  giving  the  specified 
number  of  columns  for  the  final  output  matrix 
for  generation  of  a  surface  plot. 

MXEDLN  -  Maximum  number  of  command  lines  which  can  be 
stored  in  a  command  sequence  block. 

NEDSIZ  -  Number  of  computer  words  in  a  command  sequence 
file  (Edit  file)  direct  access  record. 

NEDCHR  -  Number  of  characters  which  are  stored  for  a 
command  line  of  the  command  sequence  file 
(Edit  file). 

NPCYAV  -  Specified  number  of  data  values  which  are 

generated  to  represent  one  rotor  cycle  in  the 
cycle  averaging  (AVERAGE)  process. 

MXRCHR  -  Number  of  characters  that  are  read  during  an 
input  from  system  input,  the  Info  File,  or 
the  Command  Sequence  Storage  File. 

MAXGRP  -  The  maximum  number  of  geometric  group  names 

and  locations  that  can  be  stored  in  the  arrays 
IGRUP  and  IGRPLC. 

MXUNCN  -  The  maximum  number  of  unit  conversion  speci¬ 
fications  that  can  be  stored  in  the  arrays 
UNCNSL,  UNCNIN,  and  IUNCNV. 


MXMASK  -  The  maximum  number  of  masked  item  codes  that 
can  be  stored  in  the  array  MASKIT. 

TSTINF  -  Test  value  that  is  used  for  comparison  with  a 
datum  value  to  determine  whether  the  datum 
value  indicates  the  data  are  missing.  A  value 
less  than  TSTINF  indicates  data  are  missing. 
TSTINF  must  be  set  greater  than  SETINF. 
Currently,  TSTINF  is  not  used  throughout  the 
program. 

SETINF  -  Prototype  data  missing  value.  When  data  are 
missing  for  a  time  history,  the  first  datum 
value  should  be  set  to  SETINF.  SETINF  must 
be  less  than  TSTINF. 


/SLIST/  Block  to  contain  listing  of  the  developing  command 
step  or,  if  no  entries  have  been  made  for  the 
current  step,  contain  a  listing  of  the  previous 
command  step. 

NCPOS  -  Character  position  on  the  ISLIST  line  currently 
being  generated. 

NCROW  -  ISLIST  line  currently  being  generated  corres¬ 
ponding  to  the  second  index  of  ISLIST. 

ISLIST  -  Array  which  contains  listing  of  the  developing 
command  step.  The  lines  are  stored  in  18A4 
format  with  the  second  index  referencing  the 
lines . 

ISLNOW  -  Indicates  whether  ISLIST  contains  the  currently 
developing  step  or  the  previously  completed 
step  listing.  Allowed  values: 

0  =  listing  of  currently  developing  step 
1  =  listing  of  previous  step 


/SMPNTR/  Common  used  for  the  SYMBOL/NUMBER  emulation  package. 

LOCSYM  -  Array  of  pointers  set  by  INISYM.  A  character 
code  (e.g.,  under  EBCDIC)  is  interpreted  as 
an  unsigned  integer.  The  integer  is  used  as 
an  index  and  the  value  of  LOCSYM  for  that  index 
is  the  pointer  to  the  correct  character  in  the 
list  of  allowed  characters.  A  pointer  of  zero 
indicates  there  is  no  allowed  character  for  the 
code. 
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/STATUS/  Various  information  on  the  status  of  the  program. 

LNCNT  -  Vertical  raster  position  on  the  Tektronix 

screen  for  return  of  the  cursor  after  a  plot 
is  generated. 

KOMMNT  -  Array  containing  the  current  user  comment  for 
output.  Comment  is  stored  in  18A4  format. 

NKOMCH  -  Number  of  the  last  non-blank  character  cur¬ 
rently  in  KOMMNT. 

IFRSTP  -  Indicator  for  the  current  plot  frame.  Allowed 
values  are: 

0  =  No  plots  have  been  generated  in 
this  run. 

-1  =  Single  curve  plot  frame  was  just 
generated. 

I  =  (positive)  Multiple  curve  plot  frame 
is  currently  on  screen  or  paper 
containing  I  curves. 

CLBPOS  -  Used  for  comarison  plot  option  ( LPLOT ) .  This 
variable  is  the  vertical  position  of  the  top 
horiztonal  line  that  will  form  part  of  the  box 
around  the  annotation  for  the  current  curve. 

IDBLPT  -  Set  to  zero  normally.  Set  to  one  if  a  double¬ 
scale  plot  (DP LOT)  is  being  drawn  or  was  the 
last  plot  frame  drawn. 


/SURPLT/  Control  and  label  values  for  surface  on  contour 
plot  generation. 

ROWl  -  Numerically  lowest  row  position  for  the  final 
output  matrix  used  for  surface  or  contour 
plot  generation. 

R0W2  -  Numerically  highest  row  position  for  the  final 
output  matrix  used  for  surface  on  contour  plot 
generation. 

COL1  -  Numerically  lowest  column  position  for  the  final 
output  matrix  used  for  surface  or  contour 
plot  generation. 

COL2  -  Numerically  highest  column  position  for  the 

final  output  matrix  used  for  surface  or  contour 
plot  generation. 


PT 


NCR 

NCC 

NTYPEF 


ITRNPS 


Number  of  rows  for  the  final  output  matrix 
used  for  surface  or  contour  plot  generation. 

Number  of  columns  for  the  final  output  matrix 
used  for  surface  or  contour  plot  generation. 

Format  for  contour  or  surface  plot. 

1  =  Cylindrical  format 

2  =  Rectangular  format 

Indicates  whether  rows  and  columns  should  be 
transposed  in  generation  of  the  final  output 
matrix. 


DELZ 

LABVRT 

LABTOP 

LABHOR 

SETLEV 


0  =  No  transposition 
1  =  Transposition 

Dependent  variable  increment  between  contour 
levels  for  a  contour  plot. 

Label  for  the  vertical  axis  of  a  rectangular 
format  contour  plot. 

Geographic  feature  label  to  be  placed  at  the 
top  of  a  rectangular  format  contour  plot. 

Label  for  the  horizontal  axis  of  a  rectangular 
format  contour  plot. 

Contour  height  indicator  for  CONNEC  routine. 
For  each  plot,  this  value  is  initially  set  to 
35 

-1  x  10  as  an  indicator  that  no  contours 
have  been  drawn  yet. 


/VSIZE/  Common  block  used  exclusively  for  the  Versatec  plot¬ 
ting  adaptation  of  DATAMAP. 

VXUSED  -  Inches  of  plot  that  have  been  used  so  far  in 
current  Versatec  "frame." 

VERMAX  -  Maximum  number  of  inches  that  can  be  plotted 
before  a  new  Versatec  "frame"  must  be  started. 


/WLIST/  Keyword  block. 

NWDS  -  Number  of  keywords  stored  in  IAA. 
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FOLLOWING  ARE  SEVERAL  EXAMPLES  OF  IBM  JOB  CONTROL  LANGUAGE 
(JCL)  SEQUENCES  AND  IBM  ISO  COMMAND  LANGUAGE  .  CL I  STS  TO  BE 
USED  TO  CUMP1LF.  LINK-EDIT,  A ND  EXECUTE  THE  VARIOUS 
DATAMAP  PROGRAMS.  THESE  EXAMPLES  ARE  NOT  COMPLETE  AND 
SECT  ION  7  OF  THIS  VOLUME  SHOULD  BE  CONSULTED  FOR  A  COMPLETE 
DESCRIPTION  OF  FILE  AND  LINK-EDIT  REQUIREMENTS.  THESE 
EXAMPLES  DU  GIVE  DEMONSTRATIONS  OF  HOW  VARIOUS  REQUIREMENTS 
THAT  ARE  SPECIFIED  IN  SECTION  7  ARE  ACTUALLY  ACCOMPLISHED 
USING  JCL  OR  LLISTS.  THESE  EXAMPLES  HAVE  BEEN  CONSTRUCTED 
TO  WORK  ON  BH T • S  COMPUTER  INSTALLATION  OF  IBM  370/I6fc*S 
RUNNING  UNDER  MVS.  SOME  CHANGES  WILL  BE  REQUIRED  FOR 
OPERATION  ON  OTHFR  IBM  SYSTEMS. 


EXAMPLE  1  -  TO  EXECUTE  THE  FILE  CREATION  PROGRAM  TO  READ 
oHT-GuC  FORMAT  INPUT  DATA  T APE  S . 

//EEARefe  JG'i  (FEA8C  2GC'  ,  G3  F.63C999.DP  St  »VS)  .  •  D I  CK  2841*. 

//  MSGLE VEL^l  , MS GCL A SS  =  A . CL A SS  =  T , NOT  I F Y =E SAR 

/♦SETUP  DSN  —F NGR • N E  WOL E 

/♦SETUP  DEN=ENGR  .F  1  fcf  39t,6 

/♦SET U1-  OSN=ENGR.Ft  3S2  IRA 

/♦SETUP  DSN  =  E  NgP .F3196C24 

/♦SETUP  OSN=ENGR.F73C74fcl 

/♦SETUP  DSN  =  F  NGR • F246C  312 

/♦SETUP  OSN=ENGR.F4reC7C3 

/♦SETUP  DSN  — E  NGR  .Ff.  C4E2PE 

//STfcPl  Extc  PGM=F  z A  RO  2.TIME  =  20 

//STEPLIB  DU  USN  =F  NGR • TESTl.DI SP  =  SHR 

//FTC1FCC1  DU  DSN=E SAR.OLSMAS .DISP=OLD 

/  /F  T  C  S  E  £  C  1  dd  osn-esar.fcpinput.data.disp=shr 

//FTCtEGCl  UD  SYSOUl=A 

//FT1AF0C1  UU  UNI  T=SYSOA»DSN=ESAk.  UN  1  T  1  4  .  D  1  SP— NEW  . 

//  SPAC  fc  — ( CYL . 3  > . DCB  —  4  RE  CF  M— F  .BLnS I 2F  =  1  024  .DSORG=DA  ) 
//E*I?FCCI  uD  USn=ESAR.UN1 TI4 .UNIT=AFF=Vl I4FC01 . 

//  VUL  =  PrF  =♦ .FT  I4FCC l . O l SP  =ULD . 

//  DlB=(RFLFM=F .HLKSI /e =1 C24 .DS0RG=DA ) 

//FT13ECC1  DD  UMT  =  SYSDA,DISP=NFW,SPACt=CCYL.(3,i  >). 

//  UCB  = (  Rf  CF  M=F .HLKSIZE  =64  C  C  ) 

//EYEUuUMP  DD  SY30UT  =  A 

//FT?(FCC1  DO  UNIT=TPS,USN=ENgR.NEWOLS.D1SP=OLD 
//ET21FCC1  DD  UN n  =  AFF=FT?CF CC  1  . 

//  DSN=f NGR.F 16E396S ,01 SP=LLD 

//E’  DCtl  UD  UN1T=AFF-FT?CFCC1  . 

//  uSN=.»NGR.Ft  3S2  194  ,D  I  SP=ULD 

//FT23F0C1  DU  uMT  =  AFF=FTrCF001  , 

//  USN=ENGR.F3 lv6C24.DISP=0LD 

//FT24F0C1  DD  UN IT = AF F -f T ? C E C C 1  . 

//  DSN=l NGR.F7^CT4bl ,DISP=CLD 

//F*;EFCC1  DO  uN 1 T =AF F  =F T  «  C  F  G  0  1  . 

//  USN=SNgR . Fr4tC3I2.DlSP=OLD 

//FT26FCC1  LyO  UN  1  7  =  AFF  =F  TJCF001  , 

//  OS N  — E NGR .F42LC7C  J,DISP=ULD 

//FT27FCC1  DD  UN  IT  =  AFF  =  F T i C F C C  1  , 

//  USN=FNGH.FfcGA S2F S.D I SP=ULD 

// 
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EX4io.PL:.  2  -  TO  tXtCUTf  THE  FILE  CREATION  PROGRAM  WITH  DATA 

TRANSFER  FILE  (UTF)  FORMAT  DATA  INPUT.  IN  THIS  CASE.  THE 
DATA  INPUT  IE  /  DISC  F1LF  THAT  HAS  BEEN  PREVIOUSLY  CREATED. 
NLTICt  THAT  THE  RECORD  FORMAT  FOR  THE  TEMPORARY  SEUUENT1AL 
SCRATCH  FILE  (FTISFCC1)  HAS  CHANGED  AND  THAT  AN  INFO  FILE 
uRuUP  UU'PUT  FILE  DATA  SET  IS  DECLARED  CFTGRF0G1). 

/  / 1  S  A  k  c  9  Juu  IFEAuC  20C  .G’P  .6:'0959,DP  JC  .  TS  )  .  *DI  CK  ;64l*. 

//  MSGLcVrL=l  .MSGCLASS=A  ,CLASS=T .NOT  XFY=ESAR 
//ETFP1  EXEC  PoM-F  t  A  RC  2  . T 1  ME  =20 
//STFPLIO  DU  UEN-fNbR. TEST  1  . D 1£P  =  SHR 
//I- "'C  IP  0  C.  1  DL  DSN=E S AP . OLE MA S , D I SP=OLD 
//FT0SF0C1  Du  OSN=c SAR. uTFSTUB ,DI SP=SHR 
//F’ltFf  fl  DO  S  Y  SOUT  =  A 

/  /F  T  C  <-FC  l  i  DO  UN  1  T  =S  YSD  A  «  DSN  =c  SAR.IN1Y1CZC. 

//  DISF  =(NEw.CATlG) ,SPACF  =  <  TRK. (6.6)  )  . 

//  DLL  —  IRECFm=Fu.BLKS1ZE  =3irc.LRE  CL  —  8 G  ) 

//FT  1 4F  0  0.  DD  UNI T=SYSUA.DSN  =  ESAR.UN 1 T 14 ,D1 SP^NEW . 

//  SPACt=(CYL.jI  «uCb-i RE  CFM=F  »BLKSIZE=1024. DSGRG— DA  ) 
//FTliFtCl  DD  DSN-ESAR.uNIT14,UN1T=AFF=FTIAFC01 . 

//  VOL  —REF  =  *  •  F  T 14FC0I .D1SP  =  0LD. 

//  DCF)— (RfcCFM  =  F  .BLKS  1  Zt  =  1  C  2  4  ,  DSORG=D  A  ) 

//pTloPOfl  uD  UN  1  T  =  SYSDA.O  I SP =NE w . SP AC E =i C YL • (  3,2  )  )  . 

//  OCU=< WECFM=VoS.BLKS I ZE =£400 .LRECL=4GE4 > 

//SYSUDUMP  DD  SYSOUT  =A 

//PT21PCC1  DD  USN=ES/R.DTF.DA*I  A.D1SP=SHP 
/✓ 


EXAMPLE  2  -  TO  EXECUTE  ThF  PROCESSING  PROGRAM  IN  A  BATCH 
MODE.  NOTICE  THAT  TWU  DATA  SETS  ARE  CONCATENATED  TU 
FORM  THE  INFO  FILE.  ALSO  NOTICE  THAT  T HL  SCRATCH  FILES 
DATA  SFT  is  ASSUMED  TO  EXIST  ALREADY  AND  THAT  THE  SCRATCH 
FILES  are  DECLARED  TU  BE  PERMANENT  WITH  THE  PASSED 
PARAMETER  ‘PERM*. 

//ESAREC  JOB  lATAROfcUG.GSe.eaOQSPCG.OPSe.TSI.'DICK  2£41», 

//  MSGLt  VEL  =  1  .MSGCLASS  =  A . CL A S S  =  H .NO T 1 F Y=E S AR 
//  EXEC  P  GM=  A  T  A  R  C  6  .  T  I  F.E  =2  C  •PARM=,PFRM* 

//ST  E  PL  1 u  DD  DSN=ENGR.TE ST  1  ,D1SP  =  SHR 
//pTIrpCGl  DD  OSN=ESAR .SCRATCH. DATA ,DI SP=OLD 
//FT11P0C1  DO  DSN=ESAR. SCRATCH. DATA. DISP=OLD 
//FT0EFCC1  DD  DSN =  E S A R . PROCE S I N . D » T A . D I SP=SHH 
//FTC6FC0I  00  S YSUUT  =A 

//FTC1FGCI  DD  DSN=E S A R . OL SM A S , D I S P =S HR 
//FT14F001  DD  DSN  =  F S AR .  INF OB A  SC , D I SP =SHR 
//  DD  DSN=f SAR. CE 1 GRUPS.DAT A ,DI SP=SHR 

//FTI3F001  UD  DSN=ESAR.COMSEQ.DISP=SHR 
//PLU^TAPE  DD  UN1T  =  (TPS». DEFER  I  . 

//  VOLUME =PRIVATE ,DCB  =  10EN  =  Z  )  . 

//  LABEL=EXPDT=9£0C5 
// 
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EXAMPLE  4  -  TO  FXFCUTF  THE  PROCESSING  PROGRAM  UNDER  TSO. 
FOR  THIS  EXAMPLE.  A  temporary  SCRATCH  FILES  DATA  SET  IS 
ALLOCATED  and  the  parameter  *temp*  is  passed  to  the 
PROGRAM.  THE  PLOT  COPY  DATA  SETS  ARE  DECLARED  AS  OUMMYS 
SO  THAT  NO  PLOT  COPIES  SHOULD  BE  ATTEMPTED  USING  THIS 
CLIST. 

PROC  2  EDIT  INFO  PROGI ENGR .PROD  1  I ATARC3 > )  MF IL E ( E SAR .OLSM AS ) 

CONTROL  NOMSG 

FREE  OAt *ESAR. CLIST*) 

FREE  FIFTCIFCCl  FTC5FCC1  FTC6F0C1  FT22FC01  FT23FC01) 

FREE  FIFTllFCGl  FT12FG01  FT13FGG1  FTI4FGGI) 

FREE  ATTRtSCRATX) 

CONTROL  MSG 

ATTk  SCRATX  RECFMIF)  OSORGIDA)  LRECH1024)  HLKSIZEt  1 024 ) 
ALLOC  DA(VTEMP)  US  1  NG  l  S  CR  A  T  X  )  NFlM  SP  <  £  )  CYL 
FREE  ATTRISCKATX) 

ALLOC  FIFT12FCC1)  UAIVTEMP)  SHR 
ALLOC  F(FTllFCOl)  OA(VTEMP)  SHR 
ALLOC  FIFT13F001  )  OA (  • CED IT.*)  SHR 

alloc  f(ftcifcci)  oai *lmf ile. • >  shr 

ALLuC  F(FT14F(C1>  DA(*LINF0.*)  SHR 
Alloc  fcftcsfogi)  da(*) 

ALLOC  F <F~CfcFOGl )  OA(4) 

ALLOC  F(FT22FGG1)  DUMMY 
ALLOC  F(FTt3F0Cl  )  DUMMY 
CALL  *SPK0G. •  'TEMP* 

FREE  FiFTGlFGGl  FT22FCC1  FTE3FCP1) 

FREE  FtFTIlFCGl  FT12FGG1  FT12FCH  F714FGG1) 

DELETE  V  TEmp 


Ex/MPLE  S  -  TO  EXECUTE  THE  PROCESSING  PROGRAM  UNDER  TSO. 

IN  THIS  EXAMPLE.  THE  SCRATCH  FILES  ARE  ASSUMED  TO  BE  A 
t-tPMANENT  DATA  SET  .  AND  TO  BEEN  INITIALIZED  BY  A  PREVIOUS 
PROCESSING  PROGRAM  RUN.  ThE  PARAMETER  ‘PERM*  IS  PASSED  TO 
THt  PROGRAM.  ALSO.  THE  PLOT  COPY  DATA  SETS  ARE  ALLOCATED. 

PROC  '<  EDIT  INFO  PROG  <  E  NGP.  PROD  1  I  AT  A R  l  C  )  )  MF  1L  E  <  E  S  AR  .  OLSMA  S  ) 

CONTROL  NOmSG 

FRFE  DA( *ESAR. CLIST • ) 

FREE  F(FTG1F0C1  FTOSFOOl  F7C6F001  FTTii-OOl  FT23F001) 

FREF  FIFT1IFCCI  FT12F001  FT13FC01  FT14FG01) 

CONTROL  MSG 

ALLOC  F(FTIiFCCl)  OA(VPERM)  SHR 
ALLOC  F(FTllFCCl)  UA(VPERM)  SHR 
ALLOC  F(FT13FGG1)  OA I  •  6.  FD 1  7  .  •  >  SHR 
ALLOC  F(FTCIFOOI)  DA  I  • GMF I Lt .  *  >  SHR 
ALLUC  FIFT14FC01 )  OA(*CINFO.*)  SHR 
ALLOC  F(FTCEFCCl)  LA(4) 

ALLOC  F(FTCfcFCOI)  dA ( * ) 

ATTK  VCUP  RECFMt  V.t-.S)  DSOKG(PS)  LRFCL(I6)  dlX  SIZFI312A) 

ALLOC  DAITEMPCOP)  USING(VCUP)  NEi*  SPACE(l)  CYL 
ALLUC  FIFTicFGCl  )  dA(TEmPCOP) 

alloc  da«k.eepcup»  dsingivcop)  new  space  n.i)  cvl 

ALLUv.  F(F7i3FCGl)  OAIXFEPCOP) 

FREE  ATTP(VCOP) 

CALL  *GPRUG*  *PFKM* 

F  RE  E  FIFTOIFGCI  FTITFOOl  FTlZFOOl) 

FREE  F(FT11FCC1  FT12FCC1  F'lOFCCI  PT14PC01) 

DELE  TF  TE  MPCOP 


184 


(XAMfLF  6  -  TU  PLOT  FROM  THE  PLOT  COPY  FILE  THAT  WAS 
CREATED  IN  EXAMPLE  E. 


//ESAkCI  JOB  (PLlTCUPY  ,L?f  .6?t  99900.  DP3E  ,TS  ).'  D  1C*  2fc4  1*. 
//  MS&LEVEL=1 ,MSGCLASS=»  . CL  * SS=G .NOT  I F Y=E SA R 

//  iXEC  POM=F=ARie,TIMF=? 

//steplib  do  dsn=engr.test 1 ,D1SP=SHR 
//FT23FC(,1  DO  DSN=E S AR . Kf EPCOP • D I SP=SHR 
//P  Y  i>t)p  C  C  1  DO  SY6UUT=A 

//pldttape  oo  unit=(tps.  .oeferi  . 

//  VOLUME =PR IVAYE,L#BEL  =  E  XPO7=9fc0C5 • 

//  DCD  =  I DEN  — 2 ) 

// 


EXAMPLE  7  -  TO  RUN  The  FILE  MAINTENANCE  PROGRAM  UNDER 
TSO.  THE  SAVE.  RESTORE  AND  SCRATCH  FILES  ARE  NOT 
DECLARED  SO  THE  THf  'SAvf*  AND  • RE  STORE  •  COMMANDS  SHOULD 
NOT  BE  USED  WITH  THIS  CL1ST. 

PRDC  C  PRUGlENGR.TESTl IFEAR9Q) >  MF ILEIESAR. OLSMAS ) 

CONTROL  NOMSG  « 

FREE  DAI  *ESAR.CL1ST  •  >  U 

FREE  FIF7I1FCC1  FTC5FCC1  F7C6F001)  F 

F  PE  F  A T  T  R I  SCR A  T X  I 
CONTROL  MSG 

ALLOC  FIF1&1FGG1)  DA  I  • EMF ILL .  •  >  SHR  I 

ALLOC  KFTCEF0C1)  DAI*) 

ALLOC  FIFTGfcFOOl)  DAI*) 

CALL  *LPROG. • 

FREE  FIF1C1FCC1) 


EXAMPLE  b  -  TO  EXECUTF  THE  FILE  MAINTENANCE  PROGRAM  IN  A 
HATCH  MODE.  THE  SAVE.  RESTORE.  AND  SCRATCH  FILES  ARE 
DECLARED  IN  THIS  JCL  SO  THAT  THE  SAVE  AND/OR  RESTORE 
COMMANDS  COULD  BE  USED. 

//ESAR2G  JOU  IMA  INTAIN.G3fc.63C99900.DP3fc.TS ) .»DICK  26*1*. 

//  MS  GLE  V  EL  =  I  .  MSGCL  ASS  =  A  .  CL  ASS  =G  .  NOT  I F  Y  -=ESA  R 

//  ExEC  PGM=FE  AR*>9  »7IMfc=20 
//STEPLIO  DO  DSN=ENGR.TESTI ,D1SP=SHR 
//FTC1F0G1  DD 
✓✓FTC5F0C1  DD 
//FTG6F0G1  DD 
//FTG7FGG1  DD 
//FT  OfcFOG I  DO 
// 

// 

//FTC9F00I  DD 
// 

// 


DSN=ESAR.OLSMAS.DISP=OLD 
DSN=FS AR.FMPINPUT.DAT A .DISP=SHR 
SY  SOUT  =A 

DSN  =F  S AR .P AR  TS A VE .UN I T =TPS . D I SP=ULD 
OSN=E  S  AR .PARTSAVI ,UN1T=TPS.DI SP=NEW. 

L A BE L=EXPDT=96 36 E  . 

DC8=IRECFM=Fb ,BLKS I ZE=E 1 92 ,LRECL=1024 ) 
UNI T=SYSDA ,DISP=NEW . S P A C t = I C YL . I  3  .2 ) ) » 
DCB  =  IRECFM=FB .BLKSIZE =4096 .LRECL  =  1024 ) 
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EXAMPLE  9  -  TO  EXECUTE  THE  QUESTION  AND  ANSWER  PROGRAM  TO 
CREATE  COMMAND  INPUT  F UR  THE  FILE  CREATION  PROGRAM  (TV3TH). 
THIS  CL  1ST  ALLOCATES  THE  COMMAND  INPUT  FILE  AS  »NEW»  SO 
THE  FILE  SHOULD  NUT  EXIST  BEFORE  THIS  CLIST  IS  EXECUTED. 

THE  DATA  SET  NAME  THAT  SHOULD  BE  USED  FOR  THIS  FILE  MUST 
BE  PASSED  AS  THE  FIRST  PARAMETER  TO  I  HE  CLIST. 

PHOC  1  INPSET  PROGI ENGR.PRQD1 (FEAR5S) ) 

CONTROL  NOMSG 

FREE  DA < • ESAR.CLI ST • ) 

FREE  F ( FT OSF  00  1  FTO6F001) 

FREE  F  I  FT  08F  00 1 ) 

FREE  ATTR(SCRATX) 

CONTROL  MSG 

A  TTR  SCRATX  RECFMIF.h)  LRECLiaO)  BLKS I 2E ( 2430 > 

ALLOC  DAISINPSET.)  SP <  1 u >  TRACKS  US  I NG ( SCRATX > 

FREE  AT  TR ( SCR AT X ) 

ALLOC  F(FT08F001)  DAISINPSET.) 

ALLOC  FIFT05F001)  D A ( * ) 

ALLOC  FIFTObFOOl)  OA<*) 

CALL  *&PROG.» 

FREE  F I  FT  08FOO  1  ) 


EXAMPLE  10  -  TO  EXECUTE  THE  COMMAND  SEQUENCE  FILE  INITIALIZ¬ 
ATION  PROGRAM  UNDER  TSO.  THIS  COMMAND  SEQUENCE  FILE  DATA  SET 
MUST  BE  ALLOCATED  3EFORE  THIS  CLIST  IS  EXECUTED  AND  THE 
DATA  SET  NAME  MUST  3E  PASSED  AS  THE  FIRST  PARAMETER  TO  THE 
CLIST. 

PROC  1  ED1TFILE 

CONTROL  NPMSG 

FREE  OA ( • ESAR .CLIST*) 

FREE  F ( FT  O 1 FOO 1  FT0SF001  FTOoFOOl  FT09F001) 

CONTRUL  MSG 

ALLOC  FIFT09F001)  O  A  I  •  C.ED  I  TF I LE  .»  )  SHR 
ALLOC  F (FTOIFOQ I  )  OA (• &ED 1  TF I Lt .*  )  SHR 
ALLOC  FIFT05F001)  DM*) 

ALLOC  FIFT06F001)  DA ( * ) 

CALL  *ENGR. TEST1 (FEAR1 ) • 

FREE  FIFTOIFOOI  FT09F00I) 


EXAMPLE  11  -  TO  COMPILE  ANT  SOURCE.  FOR  THIS  EXAMPLE.  THE 
SOURCE  INPUT  lb  ON  OATA  SET  • E SAR . SOURCE . FOR T •  AND  THE 
OBJECT  DECK  IS  WRITTEN  TU  DATA  SET  • ES AR . OB JEC T . OB J • . 

/ /E SARA  JOB  ( COMPILOO .G3S ,6 30999 0 0 . DP38 . T S ) . «OICK  2841'. 

//  MSGLEVEL=1  >  NOT  I FYa£ S AR . MSGCLASS=A . T I ME  =  ( 5 . 00 ) .CLASS=D 

//FUR  TX  EXEC  PGM  =IFEAA3«REG1 ON=2  56 K 
//SYSPRINT  DD  SYSOUT=S 
//STSTERM  DD  SYSOUT=i 

//SYSUT1  DO  UNIT=VIO.SPACE=( TRK. 100) 

//SYSUT2  DD  UNIT=VI0,SPACE=(CYL,3) 

//SYSLIN  DD  UN IT=SYSDA.DI SP= (NEW .CATLG) .DCB=BLKS 1 ZE=3 1 20. 

//  SPACE =(CYL. 10) .DSN=SSAR. OBJECT. OBJ 

//sYSIN  DD  DSN=eSAR.SOURCE.FORT.DISPMOLD,DELETE) 

// 
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EXAMPLE  1  i  -  TO  LINK,  THE  FILE  CREATION  PROGRAM  ON  T  SO . 

THE  LBJECT  DECK  IS  ASSUMED  TO  bt  E S AR ,ub JE CT . Ob J .  THE 
LU/D  MODULE  IS  LEFT  ON  THE  PARTITION  *FEARO£*  OF  THE 
LIBRARY  •FNGR.PRUDI *. 

LINK  DuJi.LT  LOAD! •lNGR.PRODI (FEARG2 ) • >  MAP  FURTL1B  L  I B  (  •  E  SAR  .DA  TM  A  PLB  • 
•ENGR.FQKTLIB*  ) 


EXAMPLE  IS  -  Tl  link  The  BATCH  version  of  The  PROCESSING 
PROGRAM  UN  TSU.  THE  MAJOR  PART  OF  THE  PROCESSING  PROGRAM 
OBJECT  IS  »tSAR. OBJECT. OBJ*  »  #HIi_t  THE  ADDITIONAL  OBJECT  DECKS 
•FSAR.SYMbPALK.OHJ* ,  • E S AR . NPLDF VCD. OB J • ,  AND  * E S AR . DUMMYS . Ufa J • 

ARE  USED  (SEE  SECTION  7).  IN  ADDITION,  THE  LIBRARIES 
•ESAR.OATMAPLo*  AND  'ENGR.FORTLIo*  ARE  USED.  • E NGR . FORTL I  fa • 

contains  the  calcomp  plotting  subroutines 

link  ( OB  Jt  CT  EYMbPACK  NPLOEVCO  DUMMYS)  LOAD ( »E NGP .TE ST  1 ( AT AR Ob ) • )  MAP 
S  1ZE (4C0GGG . 100GGG )  FOHTLlb  L I S ( *E S AR . DAT M APLB •  * ENGR.FORTLIB •  ) 


'aAMPLE  14  -  TO  LINK  THE  INTERACTIVE  VERSION  OF  THE  PROCESSING 
PRUGRAM  ON  TSO.  Trtf  MAJOR  PART  OF  THE  PROCESSING  PROGRAM  IS 
ubJtCT  IS  IN  *E SAR. OBJECT. Ob J* ,  aHIlE  THE  ADDITIONAL  OBJECT  DECKS 
•ESAR.SYMBPACK.OBJ* ,  • t S AR . NEaCPRE V .OB J  •  .  ANo  • E SAR .NPLDF VTD. Ob J • 

ARE  USED  (SEE  SECTION  7).  IN  ADDITION.  ThE  LIBRARIES 
•ESAN.DATMAPLb* .  *ENGR.TCSLOADl • .  AND  • ENGR .F DR TL I fa •  ARE  USED. 
•FNGW.TCSLOADI •  CONTAINS  THE  TEKTRONIX  PLuTIG  LIBRARY. 

LINK  ( Lb  Jt  CT  EYMfaPACK  NEWCPREV  NPLDEVTU)  L 0 ADI  • E NGR . PROD 1  ( AT AR C5 )  •  )  MAP 
S  1ZE'  (  4L0C00. 1C00CG  )  PORTLIB  L  I B  (  •  E  S  A  R  .  DA  TMaPLB  •  •  ENGR  .  T  CSLOAD  1  •  ‘ENGR.F 

ORTL1UM 
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